XVM/RSX PART XI 
CONSTRUCTION OF ADVANCED TASKS 



CHAPTER 1 


CONSTRUCTION OF ADVANCED TASKS 


1.1 INTRODUCTION TO ADVANCED TASK CONSTRUCTION 

This chapter describes advanced task construction in the RSX system 
and presents conventions for writing such system tasks as the 
following : 

. MCR function tasks 
. Task-development functions 
. I/O device handlers 
. Interrupt drivers 

Procedures for constructing these tasks are similar to those required 
for on-line development of user (or application) tasks. Regardless of 
function or complexity, all tasks must be: 

. Assembled or compiled 

. Task built using TKB 

. Logged into the system by means of the INSTALL MCR Function 
task or, in the case of CONSTRUCTed tasks, by FININS 

. Activated and executed, using system directives, the Monitor 
Console Routine or the MULTIACCESS Monitor 

The remaining chapters in this part of the manual define precise 
requirements for constructing advanced tasks and present examples of 
operational tasks in each of the categories mentioned above. 
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1.2 GUIDELINES FOR ADVANCED TASK CONSTRUCTION 

The following guidelines summarize certain basic requirements for 
constructing all Tasks described in subsequent chapters, 

1. All hardware registers are available to the programmer; no 
registers are reserved exclusively for system use, 

2. Naming conventions exist for MCR Function Tasks, 
Task-Development Functions, and I/O Device Handler Tasks. 
Appropriate conventions are described in each chapter. 

3. Tasks should not exit while I/O, mark-time, or Event Variable 
settings are still pending; premature exit might cause the 
Task to be overlayed by another Task before all necessary 
operations have completed. 

4. Tasks should not exit without relinquishing system resources. 
In particular, the following functions should be performed: 

. Unused "nodes* should be returned to the "Pool of 
Empty Nodes." 

. External I/O buffers should be freed. 

. Attached devices should be detached. 

. Open files should be closed. 

5. The issuing of a System Directive results in a loss of the 
original contents of the following registers: 

. AC 

. XR 

. LR 

• MQ 

. LINK 

. SC 

. Autoincrement registers 10-17 
. System registers R1-R6 
. Location 20 

Unexpected interrupts which suspend Task execution must 
always save and restore active registers before use. 
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CHAPTER 2 


CONSTRUCTION OF MCR FUNCTION TASKS 


2.1 CONVENTIONS FOR MCR TASK CONSTRUCTION 

MCR Function Tasks are responsible for handling operator requests for 
installation , activation, and scheduling of user or system Tasks, as 
well as a variety of other procedures described in the MCR manual. To 
supplement operations performed by these modules, the user can write 
his own MCR Function Tasks. He must adhere to the following 
conventions : 

1. The name of the MCR Function Task must consist of three dots 
followed by three characters, as in the following: 

... INS 
...REQ 
... ABO 

2. Because MCR Function Tasks must address registers within the 
Executive, all MCR Tasks must be built to run in EXEC mode. 
This implies that the partition in which an MCR Function Task 
runs must be in the lower 32K of core. 

3. All MCR Function Tasks must be invoked from the Resident 

Monitor Console Routine. The Resident MCR is initially 
requested by typing CTRL/C (tC) on the MCR device. If a 
carriage return is used to terminate a particular MCR command 
line, the Resident MCR will be automatically invoked after 
the function specified in that command line has been 

performed. If an ALTMODE character has been used as 

terminator, CTRL/C must be typed each time the Resident MCR 
is desired. 

4. MCR interaction is carried on from the device associated with 

LUN-2. Listing output is associated with LUN-3. Both LUNs are 
normally assigned to a terminal dedicated to MCR 

communication • 

5. The command input line must be read using the 

"Fetch- A-Character" (FAC) subroutine. Additional input lines 
must be initialized by the "Initialize Fetch-A-Character" 
(IFAC) subroutine. 

6. To enable further MCR interaction, the MCR Function Task must 
clear the "MCR Request Inhibit" (MCRRI) flag before exiting. 

7. An MCR command terminated by a carriage return requires that 
...MCR be requested. If the command line ends in ALTMODE, 
the Task must zero MCRRI before exiting. 
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2.2 SAMPLE MCR FUNCTION TASK 


This section presents a sample MCR Function Task named ...DIS, which 
is used to disable a Task. A full assembly listing of ...DIS is 
included on subsequent pages. The following description summarizes 
the flow of control through this program. Line numbers in the 
leftmost column below refer to decimal line numbers included at the 
left margin of the assembly listing. 


Line Number 
64-91 


92 


93-112 


113-120 


121-127 


Label Description 

DIS Start here. Fetch characters from the 

input command line, using the resident 
FAC subroutine in the Executive, and 
build a 1-6 character Task name. The 
Resident MCR with Task name ...MCR, is 
responsible for requesting the DISABLE 
Task, named ...DIS, and for reading the 
command line such that FAC is ready to 
pick up the character following the 
first break character in the command. 
Check for a syntax error. 

ENDCRA Save the code for the line terminator, 
carriage return or ALTMODE, to be 
examined prior to Task exit. 

DISN2 Convert the Task name from ASCII to 

• SIXBT and store the name in the DISABLE 
CAL Parameter Block (DISCPB) . 


EXTlA 


Issue the DISABLE Directive to the 
Executive and wait for completion. 
Check for an error. If an error is 
detected, print an error message. 

Exit sequence. If the line terminator 
was a carriage return rather than 
ALTMODE, request the Resident MCR 
Dispatcher Task (...MCR) and do not 
clear the "MCR Request Inhibit" flag. 
If the terminator was ALTMODE, clear the 
flag but do not request the dispatcher. 

variables. 


128-159 


WAITF 


CAL Parameter Blocks (CPBs), 
and error messages. 



PAGE l DIS.5 SRC 


1 

2 

4 

5 

6 
7 

|_ 

10 

u 

12 

13 

14 
T5" 
16 

17 

18 

19 

20 

— 21 “ 
22 
23~ 

_2 4 

25 

26 


/ 

/ 

/ ' FIRST PRINTING, FEBRUARY 1974 ~ 

L 

✓ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

/ CHANGE WITHOUT NOTICE AND SHOULO NOT BE CONSTRUED 
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

/ DIGITAL equipment CORPORAT ION ASS UMES N<L R e s P 0 N- 
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 

✓ document. 

/ 

/_ThE JOFTWARE described IN this document is fur- 

/ NISHED to THE PURCHASER UNDER A LICENSE FOR USE ON 
/ A SINGLE COMPU T ER SYSTEM AND CAN BE COPIED ( WITH 
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICED ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEP T AS MAY OTHERWISE BE PRO- 
/ VIDEO IN WRITING BY DIGITAL. 

/ 

/ DIGYTAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP- 
/ MENT IhAT 15 NOT SUPFlIEO BY DIGITAL. 

I 

/ COPYRIGHT CCD 1974, BY DIGITAL EQUIPMENT CORPORATION 
/ 

.i£ECI 
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PAGE 2 01$. 3 SRC 


2T 

26 




30 

31 

32 
"53 

34 


T* 


36 

3T 

36 

^9 


40 

41 

42 

4 ? 

44 

73 

46 

7T 

48 


50 

" ~3T~ 

32 

33 

34 

33 
36 
57 
56 

5 ^- 

60 
“ 3T 
62 
63 


/ EDIT #5 

_/ _ 

/“COPYRIGHT T9 73, 1971 , 1$72, DIGITAL EQU IPmENT CORR. , MAYNARD, MASS. 

_/ 

/ MCR FUNCTION — DISABLE ‘ 1 MAY 72 ' “ R, MCLEAN 

_/ 

/ task name "...dis" to oisable a task , 

/ 

/ THE FIRST LINE OP THE COMMA NO INPUT FOR ANY MCR 

/ FUNCTION IS REAP B Y THE RESIDENT MC R TASK ("...MCR") . 

/ FOR THf "DISABLE" FUNCTION, THERE IS ONLY ONE LINE OF 

/ command input, and it * s sy n tax is as follows; 

/ 

± SY NTAX » »DIS'S<nBCxBREAK CHARACTERXTASK NAME> 

/ C<CR>/<AM>) 

✓ <BREA K CHAR> » " 

/ <TASK N A M E > » 1*6 ALPHANUMERIC "CHARACTERS 

/ <CR> ■ CAR RTN 

/ «AM> ■ ALTMODE 

/ «NBC> • NON BREAK CHARACTER 

/ S — " ANY NUM&ER OF "INCLUDING ZERO " 

/ 

/ TffE ^TSIDEW MCR READS A LINE, FETCHES THE 

/ FIRST THREE CHARACTERS TO FORM THE MCR FUNCTION TASK 

/ naTTe c«,..ois"), "Flushes characters thru the first 

/ break character, requests "...DIS", AND exits 

7 THETAsir "...DtS * PROCESSES' ThE^EM A l NDER OF THE LINE 

/ __ AND IF THE REQUEST IS VALID, ISSUES AN APPROPRIATE "DISABLE" 

7 DIRECTIVE. 

/ 

/ if the command input line is terminated by a car rtn, 

/ THE RESIDENT MCR TASK IS REQUESTED, AND THE FUNCTION TASK 

7 EXITS". 

£ _ 

/ IF THE COMMAND INPUT LINE IS TERMINATED BY AN ALTMQOE, THE 

/ FUNCTION TASK EXITS WITHOUT REQUESTING "...MCR". A aC TYPEIN 

/ is ThEn NECESSARY To RE-ESTABLISH MCR DIALOGUE. 
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PAGE 3 

016,5 

i 

SRC 

** * 

MCR function 

'DISABLE' 

64 

69 





.TITLE 

/ 

★ ** MCR FUNCTION 'DISABLE' 

66 



000171 

A 

MCRRT ■ 1 7 1 


67 


v 

000174 

A 

FACM74 



66 



000010 

A 

X10>10 



69 





✓ 

Law 


n 

00000 

R 

777771 

A 

ois 

-7 /SET UP TO FETCH TASK NAME ANO STORE 

71 

00001 

R 

040140 

R 


DAC 

CNT /SIX CHARACTERS CZERO RIGHT FILL) In 

72 

00002 

R 

200141 

R 


LAC 

CDISCPB+l) /DISABLE CAL PARAMETER BLOCK 

73 

00003 

R 

060142 

R 


0 AC* 

(X10) 

74 





/ 


79 

00004 

R 

120143 

R 

DISN1 

JMS* 

(FAC) /FETCH A CHARACTER 

76 

00005 

R 

540144 

R 


SAD 

(054) / IS IT A COMMA? 

77 

00006 

R 

600020 

R 


JMP 

ERRl /YES — ERROR IN SYNTAX 

76 

00007 

R 

540145 

R 


SAD 

(040) /NO — BLANK? 

79 

00010 

R 

600020 

R 



ERRl /YES — ERROR IN SYNTAX 

66 

00011 

R 

540146 

R 


SAD 

£015) /NO — CAR RTN? 

81 

00012 

R 

600023 

R 


JMP 

ENDCRA /YES— END OF REQUEST 

62 

00013 

R 

540147 

R 


SAD 

(175) /NO — ALTMODE? 

63 

00014 

R 

600023 

R 


JMP 

ENDCRA /YES— END OF REQUEST 

64 

00016 

IT 

060010 

A 


daC* 

X10 /NO — STORE CHARACTER 

89 

00016 

R 

440140 

R 


132 

CNT /LAST CHARACTER OF TASK NAME? 

83 

87 

00017 

IT 

600004 

R 

/ 

JMP 

DISNI /NO — GET NEXT CHARACTER 

86 

00020 

R 

200150 

R 

ERRl 

LAC 

(MES2) /GET SYNTAX ERROR MESSAGE ADDRESS 

89 

00021 

R 

040111 

R 


DAC 

TYPCPB+4 /PUT IT IN TYPE REQUEST 

90 

91 

00022 

IT 

600094 

R 

/ 


ERRTY /REQUEST MCR AND RETURN 

92 

00023 

"R 

040137 

~R“ ' 

ENOCRA 

nAC 

SVBKCH /SAVE CAR RTN OR ALTMODE 

93 

00024 

R 

160010 

A 

DISN2 

dzm* 

X10 /FILL REMAINING CHARACTERS KITH ZERO 

?4~ 

00025 

~R~ 

440140 

R 


132 

CNT 

99 

00026 

R 

600024 

R 


JMP 

DISN2 

98 

97 

00027 

R 

200100 

R 


lac 

DISCPB+4 /FORM FIRST HALF OF TASK NAME 

9T ‘ “ 

00030 

IT 

640506 

A 


“lrt 

6 

99 

00031 

R 

200077 

R 


LAC 

DISCPB*3 

100 

00032 

IT 

640506 

A 


T*3 

6 

101 

00033 

R 

200076 

R 


LAC 

DISCPB4-2 

10? 

00034 

TT 

741200 

A 


SNA ' 

/IS THIS A NULL NAME? 

103 

00035 

R 

600020 

R 


JMP 

ERRl /YES EXIT WITH ERROR 

104 

00036 

"IT 

640614 

A 


LLS 

n 

109 

00037 

R 

040076 

R 


DAC 

DI3CPB+2 /STORE FIRST HALF OF WORD IN DISCPB 

1*0 

09040' 

~R~ 

200103 

~ft 


LAC 

DI3CPB+7 /FORM SECOND HALF OF TASK NAME 

107 

00041 

R 

640906 

A 


t,RS 

6 

“ m 

000 4 i 

nr 

200102 

R 


LAC 

DiiCRB+e 

109 

00043 

R 

640906 

A 


L«3 

6 

110 

“00044" 

IT 

200101 

ft 


LA? 

0Y5CPBT5 

111 

00045 

R 

640614 

A 


LLS 

14 

ri2 

“00046 

If 

040077 

R 


“DA?" 

dT5cpb*3 

113 

00047 

R 

000074 

R 


CAL 

DISCPB /ISSUE DISABLE DIRECTIVE 

114 

00050 

T 

000065 

ft 


CATT“ 

wa!?F Wait f?r disable to complete 

113 

00051 

R 

200112 

R 


LAC 

EV /GET EVENT VARIABLE 

116 

00052" 

R 

740100 

A 


SNA 

/JUMP IF REJECTED 
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PAGE 4 

013.5 

SRC 

*** mcr function * 

DISABLE' 

i IT 

00053 R 

600057 

R 


JMP 

EXTlA /OK NO ERRORS 

118 

00054 R 

000105 

R 

ERRTY 

CAL 

TYPCPB /HAKE TYPE CPB REQUEST 

rr? 

00055 R 

000063 

"ft" 

WAltEV 

~CAt 

hTTT? 

120 

00096 R 

600061 

R 


JMP 

EXT2 /FIMSHEO EXIT 

121 

00057 R 

200137 

R 

EXT1A 

LAC 

SVBKCH /GET TERMINATION CHARACTER 

122 

00060 R 

540146 

R 


3 AO 

(15) /SKIP IF ALTMODE 

123 

00061 R 

000067 

R 

EXT2 

CAL 

REGMCR /REQUEST MCR TASK 

124 

00062 R 

540147 

R 


SAD 

(175) /IF ALTMODE CLEAR MCRRI 

125 

00063 ft 

160131 

R 


nzM. 

(MCRRI) /CLEAR *C SWITCH 

126 

00064 R 

000142 

R 


CAL 

(10) /RETURN 

127 




/ 



128 

00065 R 

000020 

A 

WAITF 

20 

/WAIT FOR REQUEST 

122 

00066 R 

000112 

R 


FV 

/EVENT VARIABLE ADDRESS 

130 




/ 



131 

kujjmj 

000001 

A 

RlQMCR ” 

i 

/CALL MCR DIRECTIVE 

132 

00070 R 

000000 

A 


0 


135 

00071 R 

865636 

A 


3IX8T 


134 

00072 R 

190322 

A 


.3IXBT 

"MCR" 

1 39 

00073 R 

000000 

A 


0 


136 




/ 



137 

00074 ft 

000021 

A 

0I3CPB 

21 

"TTOjcTion CODE 

136 

00075 R 

000112 

R 


FV 

/EVENT VARIABLE ADR 

~TSW~ 

00076 R 

000000 

“A 


0 

/TATK NAME - f FIRST HALF) 

140 

00077 R 

000000 

A 


0 

/TASK NAME (SECOND HALF) 

141 

00100 R 

000000 

A 


0 


142 

00101 R 

000000 

A 


0 

/ ( ' OISCPB ' +2 THRU »0ISCP8'+8 IS USED TO 

133 

00102 R 

000006 

"T" 


0 

/assemble Task na'mTTnto .sixbT) 

144 

00103 R 

000000 

A 


0 


' TW 

00104 R 

000000 

A 


0 


ua 




/ 


/WRITE 

147 

00105 R 

002700 

TT 

TTF0PB" 

2700 

148 

00106 R 

000112 

R 


FV 

/EVENT VARIABLE 

“TW 

00107 R 

000003 

A 


3 

/LUN NUMBER 

190 

00110 R 

000002 

A 


2 

/I ops ascii 

“ T5T 

00111 ft 

000123 

IT 


MES3 


132 

00112 R 

000000 

_A_ 

EV 

0 _ 


1 93 




7 



134 

00113 R 

000002 

A 

HE32 

2 1 01 

.ASCII "OIS-SYNTAX ERR"<15> 


00114 FT 

000066 

T~ 





00115 R 

422232 

A 





00116 R 326646 A 





00117 R 

546352 

A 





00120 R 440060 

A 





00121 R 

202132 

A 





00122 R 

"251032 

TT 




153 

00123 R 

000002 

A 

MES3 

2; 01 

.ASCII "DIS-TASK NOT in SYSTEM "<j5> 


00124 R 

000000 

A 





00125 R 

422232 

A 





00120 R 

326650 

A 





00127 R 

406471 

A 





00T30 ft 

320234 

A 





00131 R 

476504 

A 





00132 R 

044634 

A 
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PAGE 

5 DI5.5 

SRC 

#** 

NCR FUNCTION 

1 disable 1 


00133 

R 

202473 

A 

- 




00134 

R 

151650 

A 





00135 

R 

426321 

A 





00136 

R 

500000 

A 




156 





/ 



137 

00137 

R 

000000 

A 

SVBKCH 

0 


158 

00140 

R 

000000 

A 

CNT 

0 


159 



000000 

R 


1 END 

DIS 


00l4j 

R 

000075 

R *L 





00142 

R 

000010 

A *L 





00143 

R 

000174 

A *L 





00144 

R 

000054 

A *L 





00145 

R 

000040 

A *L 





00146 

R 

000015 

A *L 





00147 

R 

000173 

A *L 





00150 

R 

000113 

R *L 





00 1 5 i R 000171 A *L 
SlZE "B0132 NO ERROR Li NES 
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FACE a PIS, 5 CROSS REFERENCE 


CNT 

00140 

71 

85 

94 

158* 


DIS 

00000 

70* 

159 




OJSCPB 

00074 

72 

97 

99 

101 

105 106 108 110 112 



113 

137* 




OISN1 

00004 

75* 

86 




DISN2 

00024 

23* 

95 




ENDCRA 

00023 

81 

83 

92* 



ERRTY 

00054 

90 

118* 




ERRl 

00020 

77 

79 

86* 

103 


tv 

00112 

11$ 

129 

138 

146 

152* 

EXT l A 

00057 

117 

121* 




EXT2 

00061 

120 

123* 




FAC 

000174 

67* 

75 




mcrri 

000171 

66* 

125 




ME32 

00113 

88 

154* 




RF33 

00123 

151 

155* 




REQMCR 

00067 

123 

131* 




SVBKCfl - 

00137 

92 

121 

157* 



TYPCPB 

00105 

89 

118 

147* 



MAITEV 

00055 

119* 





WAITF 

00065 

114 

119 

128* 




TT0 000010 8^ 75 84 
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CHAPTER 3 


CONSTRUCTION OF TDV FUNCTION TASKS 


3.1 CONVENTIONS FOR TDV TASK CONSTRUCTION 

TDV function tasks facilitate on-line development of user tasks by 
providing a means of editing, compiling, assembling and building 
tasks. All TDV tasks are invoked by the MULTIACCESS Monitor. 
MULTIACCESS supports the following standard TDV tasks: 

. FORTRAN IV Compiler 

. MACRO Assembler 

. Text Editor 

. Task Builder 

. File and directory utilities 

TDV function tasks should not be confused with MULTIACCESS Monitor 
commands. Such commands are usually overlays to the MULTIACCESS 
Monitor and serve to control the user task-development environment. 
On the other hand, TDV functions are separate tasks and include those 
facilities necessary to perform program development. 

To supplement operations performed by standard TDV modules, the user 
can write his own TDV function tasks. He must adhere to the following 
conventions : 

1. The name of the TDV function task must consist of three 
characters, followed by three dots, as in the following: 

FOR. . . 

TKB . . . 

FIN. . . 

The user should be careful not to terminate his TDV task with 
four dots, since this format is a naming convention for I/O 
handler tasks. 

2. Most TDV function tasks can be built to run in either user 

mode or exec mode. An example of one of the few TDV tasks 
that must run only in exec mode is INS... (INSTALL), which 

modifies locations in the System Task List and must, 
therefore, address locations outside of its own partition. 
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TDV tasks should be built in user mode whenever possible 
because an exec-mode task cannot be relocated to a partition 
other than the one for which the task was built. Task 
relocation is a desirable feature for MULTIACCESS use, 
because it allows the MULTIACCESS Monitor to perform dynamic 
partition selection to maintain system throughput. 

3. All TDV function tasks must be invoked from the MULTIACCESS 
Monitor. This Monitor can be requested by typing in CTRL/T 
( ~T) on any terminal. 

4. TDV function interaction is carried on from the device 
associated with user virtual LUN-12. Error messages are 
associated with virtual LUN-13. Both LUNs are assigned to 
the user's terminal as soon as the user logs into the 
MULTIACCESS system. 

5. The command input line is transferred from the TDV line 
buffer to a buffer within the TDV function task by the XFRCMD 
system directive. 
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3.2 SAMPLE TDV FUNCTION TASK 


This section presents a sample TDV function task named DEL... that is 
used to delete files from a directory on disk. A full assembly 
listing of DEL... is included on subsequent pages. The following 
description summarizes the flow of control throuqh this program. Line 
numbers in the leftmost column below refer to decimal line numbers 
included at the left margin of the assembly listing: 

Line Number Label Description 

79-92 DEL Using the XFRCMD directive (line 53) , 

the IOPS ASCII command line supplied by 
the user to the MULTIACCESS Monitor is I 
transferred into the DEL... buffer 

(line 360). The MULTIACCESS Monitor, | 
with task name TDV..., is responsible 
for requesting DEL..., the DELETE task. 

The XFPCMD directive must be used by all 
TDV function tasks to obtain command 
strinq text. 

• 

93-103 FLUSH Flush through the first break character 

(i.e., ignore all characters in the 
command line up to and including the 
first space character) . If a line 
terminator is found, it is a syntax 
error, because it means that no file 
name was specified in the command. 

104-169 NEXFIL Pass control here to process the next 

file name after a break character is 
found. Convert the file name and 
extension from ASCII to .SIXBT, check 
for errors and store the results in the 
DELETE CPB (line 360) . 

170-183 Issue a request to DELETE the named 

file, wait for completion and check for 
errors . 

184-195 Loop or exit sequence. If the file name 

delimiter in the command is a comma, go 
back to process the next file name. If 
the delimiter is an altmode, simply 
exit. If it is a carriage return, 
REQUEST TDV... before exiting. If it • 
is none of the above, the delimiter is 
illegal and results in a syntax error. 

The convention of requesting the task 
TDV... when the line terminator is a 
carraige return is not necessary under 
MULTIACCESS. This convention, however, 
must be followed if the TDV task is to 
be run under a release of RSX prior to 
XVM/RSX VlB . 
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Line Number 

Label 

Description 


196-228 

ERRl 

Code to print error messages. 


229-269 

UNPACK 

Subroutine used to unpack 
from IOPS ASCII (five per two 
five per five words. 

characters 
words) to 

270-353 

FAC 

Subroutine used to fetch a character 
from the IOPS ASCII command line. 

354-391 

REQTDV 

CAL parameter blocks (CPPs) , 
and buffers. 

var iables 
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PAGE" 1 DEL. 1 6 SRC *** TOV FUNCTION "DELETE” 


\ .TITLE *** TDV FUNCTION "DELETE" 

2 / 

3 / 

_ _ 4 l FIRST PRINTING , FEBRUARY 1 974 _ 

5 / 

_8 / THE INFORMATION IN THIS DOCUMENT IS S UBJEC T TO^ 

7 / CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 

fl / AS A COMMITM ENT BY DIGI TA L EQUI PM E NT C O RPORAT ION. 

9 / DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPOND 

l* / SIBIL IT Y FOR ANY ER RORS TH AT HAY APPEAR IN THIS 

11 / OOCUMENT. 

11 L 

13 / THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR- 

14 / NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON 

15 /A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

U / INCLUSION OF DIGITAL *S COPYRIGHT NOTICE) ONLY FOR 

17 / USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO- 

18 / VIDEO IN WRITING BY D IGITAL. 

19 / 

20 / OIGITAI, EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILI TY 

21 / FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP- 

22 / MENT That IS NOT SUPPLIED by DIGITAL. 

23 / 

24 / COPYRIGHT (C) 197 4, BY OI GITAL EQUIPMENT CORPORATION 

23 / 

26 L 

27 ’.EJECT 
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page 2 


DEL. 16 SRC 


*** TDV FUNCTION "DELETE 


/ COPYRIGHT 1971, 1972, DIGITAL EQUIPMENT CORP., HAYNARO, HA SS. 

/ 

/ TDV (Task DEVELOPMENT) TASK, NAMED "DEL...", for deleting fil es from 
/ THE disk VIA "LUN". 


///////////////////////////////////////////////////////// 

J. L 

/ COMMAND STRING EXAMPLE! / 

Ji L 

/ TDV>DEL FILE1,FILE2,FILE3 / 

_/ t 

__ TDV>DEL FlLEl SRC,FILE2 BIN, FILES 003 / 

_1 __ / _ 

///////////////////////////////////////////////////////// 

J_ 

/ THE file name EXTENSION IS OPTIONAL — "SRC" IS THE OEF~AULT ASSUMPTION. 

/ 


D INPUT LINE IS READ BY THE RESIDENT TDV TASK C"TOV..,") AND 
/ IS TRANSFERRED TO THIS TASK BY MEANS OF THE XFRCMD DIRECTIVE, 

_7 “ ' 

/ COMMAND SYNTAX ■ » DEL 1 S<NSP»«SP*<FILE NAME* ( C<SP*<EXT») /) 

/ S7«COM*«FILE NAME*C(<SP*«EXT*)/)) («CRV/<AM*) 


_ 4 nsp> » non-space character t 

/ <SP* a A SPACE CHARACTER 

/ <FILE name* > 1 TO 6 ALPHANUMERIC CHARACTERS 

/ «EXT* a i TO 3 ALPHANUMERIC CHARACTERS 

/ «COM> a A COMMA * 

_/ <CR> a A CARRIAGE RETURN __ 

"7 <TR* a AN ALTMODt 

J_ !<,, * 0_R_SU.2_ " ANV NUMBE R, I NCLUDING NONE, OF THE ITEM <.,> OR 

/ " — ■ ■ " * - — - 

/ AT COMPLETION OF THE DELETE FUNCTION, THE TERMINATING CHARACTER OF THE 
/ COMMAND LINE IS“EXAMINED, iTTT IS A CARRIAGE RETURN," THE RESIDENT TDV 
/ TASK IS "REQUESTED" AND "DELETE" EXITS. IF THE LINE IS TERMINATED BY AN 
/ aLTmoDE, "DELETE" EXITS WITHOUT "REQUESTING" * , TDV...". A' Ctf?L T TYPEIN 
/ IS TH EN NECESSARY TO RE-ESTABLISH TDV DIALOGUE. 

/ ' “ 

’.DEC 

WM'7 /LUN NORMALLY ASSIGNEO TO DISK. 

TDVTTYals / TDV TTY ERROR LUN. 


X 1 0* 1 0 
TDXafSZ 

CBFS IZ «4p! 


/LUN normally ASSIGNED TO DISK, 

/TDV TTY ERROR L UN, 

/AUTOINCREMENT REGISTER 10. 

/USED WHEN THE SKIP IS NOT INTENDED, 
/SIZE OF THE COMMAND LINE BUFFER FOR UP 
/TO 80 CHARACTERS. 


XI-3-6 


PACE 3 DEL *16 SR C *** TOV FUNCTION "DELETE" 


79 

00000 R 000336 R 

DEL CAL 

XFER 

/TRANSFER THE COMMAND LINE READ BY " T D V . . , 

80 

00001 R 000342 R 

CAL 

WAITFR 


- "TT 

00002 R 777762 A 

laTT- 

•>16 

/is The BUFFER TOO small", I.E., is THE 

82 

00003 R 540344 R 

SAD 

EV 

/COMMAND LINE TOO LONG? 

83 

00004 R 600117 R 

J"P 

ERRl 

/YES. 

84 


/ 



89 


/ INITIALIZE 

The FETCH-a-CHarACTER SUBROUTINE, this must be done here, 

86 


/ RATHER THAN 

BEING ASSEMBLED 

IN £ IN CASE the TASK IS FIXED IN CORE AND 

87 


/ IS THUS NOT 

REINITIALIZED. 


88 


/ 



U 

00005 R 200422 R 

lac 

(FACLB+2) 


90 

00006 R 040313 R 

DAC 

F ACLBX 


9l 

00007 R 200423 R 

LAC 

(FACCB+5) 


92 

00010 R 0403U R 

DAC 

FACCBX 


93 


/ 



94 


/ FLUSH COMMAND INPUT THROUGH 

THE FIRST BREAK CHARACTER. 

■§5 


/ 



96 

00011 R 100247 R 

FLUSH jMS 

FAC 

/FETCH A CHARACTER FROM COMMAND LINE, 

97 

00012 Tf 540424 R 

SAD 

(40) 

/SPACE? 

96 

00013 R 600021 R 

JMP 

NEXFIL 


"99“ 

00014 R 640429 R 

SAD 

cisr 

/Carriage return? 

100 

00015 R 741000 A 

$KP 



101 

00016 R "540426 R 

SAD 

(175) 

/altmode? 

102 

00017 R 600121 R 

JMP 

ERR2 

/SYNTAX ERROR. 

103 

00020 R 600011 R 

JMP 

FLUSH 


104 


/ 



r&3" 


/ unpack 

File name. 


106 


/ 



107 

00091 R 200427 R 

NTXFIL LAC 

CBUF-l) 

/INITIALIZE THE NAME BUFFER. 

106 

00022 R 060430 R 

DAC* 

CX10) 


109 

00023 R 77777 1 A 

la w~ 

mT 

/UNPACK FILE NAME (UP TO 6 CHARACTERS). 

110 

00024 R 100221 R 

JMS 

UNPACK 

/RETURN IF NO ERROR OCCURRED. 

‘"'ITT 


/ 



112 


/ CONVERT THE 

FILE NAME TO .SIXBT ANO STORE IT IN THE DELETE CPB. 

113 


/ 



114 


.DEC 



116 

00029 R 200352 R 

LAC ■ 

BUF*2 


116 

00026 R 640906 A 

l rs 

6 


117 

00027 R 906351 9 

LAC 

~ BlXF*l 


116 

00030 R 640506 A 

LRS 

6 


TT9 

00031 R 200390 R 

Llf 

BUF*0 


120 

00032 R 640614 A 

LLS 

12 


121 

00033 R 741200 

SNA 




122 

00034 R 600121 R 

JMP 

ERR2 

/SYNTAX ERROR — NULL FILE NAME. 

123 

00039 R 040333 R 

daC 

DELETERS 


124 

00036 R 200355 R 

LAC 

BUF*5 


T5r 

00037 R 640506 A 


6 


126 

00040 R 200394 R 

LAC 

BUF*4 


197~ 

00041 R 640906 A 

" " Tff5 

6 


126 

00042 R 200393 R 

LAC 

BUF+3 



00043 R 640614 A 

LlS 



130 

00044 R 040334 R 

DAC 

DELETE+4 


131 


.OCT 




XI-3-7 



PACE 4 

DEL. 3 

L6 

3RC 

*** 

TDV FUNCTION 

"DELETE" 


132 

133 





/ 

/ the file nape extension 13 

OPTIONAL; THE OEFAULT EXTENSION is "SRC". 






/VALIDATE the delimiter. 


139 





/ 



130 

00049 

R 

200346 

R 

LAC 

CHAR 


137 

00040 

R 

940425 

R 

SAD 

(15) 

/CARRIAGE return? 

T31 

' 00047 

R 

741000 

A 

SKP 



139 

00090 

R 

940426 

R 

SAD 

_ (175) 

/ALTMODE? 

140 

00051 

nr 

741000 

A 

SKP 



141 

00002 

R 

540431 

R 

SAD 

(54) 

/COMMA? 

142 

00053 

R 

600072 

R 

JHP 

USESRC 

/ASSUME DEFAULT "SRC" EXTENSION. 

143 

00004 

R 

940424 

R 

SAD 

(40) 

/SPACE? 

144 

00005 

R 

741000 

A 

SKP 



149 

00090 

R 

600121 

R 

JHP 

ERR2 

/NO — illegal delimiter. 

140 





/ 



147 





/ UNPACK THE 

file name extension. 

140 





/ 



149 

00057 

R 

777774 

A 

_law 

• 4 

/UNPACK EXTENSION CUP TO 3 CHARACTERS)* 

190 

00000 

R 

100221 

R 

JH$ 

UNPACK 

/RETURN IF NO ERROR OCCURRED. 

191 





/ 



— nr?~ 





/ convert The 

: FILE NAME EXTENSION TO .SIXBT AND STORE IT IN the DELETE CPB. 

193 





/ 



194 





.DEC 



199 

00061 

R 

200360 

R 

LAC 

BUF+8 


150 “ 

00062 

R 

640506 

A 

' LRS 

6 


197 

00063 

R 

200397 

R 

LAC 

BUF+7 


“ITT 

00064 

nr 

640506 

A 

L*S 

6 


199 

00069 

R 

200396 

R 

LAC 

BUF+6 


VSW 

00066 

nr 

"640614" 

A 

LL5" 

12 


101 





.OCT 



102 

“00067 

nr 

741200 

~A 

“SNA 



103 

00070 

R 

600121 

R 

JMP 

ERR2 

/SYNTAX ERROR — NULL EXTENSION, 

154 

0007} 

R 

741000 

A 

SKP 



109 





/ 



100 





/ USE THf default extension » 

SRC". 

107 





/ 



100~ 

00072T fi r_ 20 0 4 3 2 

13 

U5ESRC LAC 

(23 2203) 

7. SIXBT "SRC". 

109 

00073 

R 

040335 

R 

nAC 

DELETERS 


170 





/ 



171 





/ delete the 

file and waitfor 

COMPLETION. 

172 





✓ 



173 

00074 

R 

000330 

R 

CAL 

DELETE 

/DELETE THE FILE. 

174 

■09675“ ft 000342“*“ 

CAL 

WAITFR 


179 

00076 

R 

200344 

R 

LAC 

EV 


170 

00077 

nr 

'540433 

R 

SAD 

Tir3 y — — 


177 

00100 

R 

600123 

R 

JMP 

ERR3 

/file not found. 

170 

00101 

r 

540434 

R 

SAD 

(-54) 


179 

00102 

R 

600125 

R 

JMP 

ERR4 

/file still OPEN. 

100 

00103 

R 

741100 

A 

SPA 



101 

00104 

R 

600127 

R 

JMP 

ERR5 

/delete error. 

102 





/ 



103 





.EJECT 



Xl-3-8 


PACE 5 

DEL”! 

L 6 

59c 

*** 

TOV FUNCTION "DELETE" 


184 



— - 



- - 

/ validate THE 

DELIMITER. 


185 





/ 




186 

00105 

IT 

200346 R 


LAC 

CHAR 


187 

00106 

R 

540431 

R 


SAD 

C54) 

/COMMA? 

188 

00107 

9 

600021 

R 


JMP 

nexfil 

/YES — PROCESS THE NEXT FILE NAME. 

189 

00110 

R 

540426 

R 


SAD 

C 1 75) 

/ALTMODE? 

190 

00111 

K 

000430 

R 


CAL 

C 18) 

/YES — SIMPLY EXIT. 

191 

00112 

R 

540425 

R 


S AO 

C15) 

/CARRIAGE RETURN? 

192 

00113 

IT 

>41000 

A 


$k9 


/YES. 

193 

00114 

R 

600121 

R 


JHP 

ER«2 

/NO — ILLEGAL DELIMITER, 

194 

00115 

R 

000323 

R 

EXIT 

CAL 

REQTDV 

/REQUEST "TOY...". 

195 

00110 

R 

000430 

R 


CAL 

C10) 

/EXIT WITHOUT WAITING FOR RESULT, 

196 





/ 




197 





/ ERRORS — PRINT THE ERROR 

MESSAGE AND THEN REQUEST M TOV " EVEN IF 

196 





/ THE 

LINE TERMINATOR IS AN 

ALTMODE. 

199 





/ 




200 

00117 

"R“ 

200435 

R 

ERR1 

LAC 

C*E51) 

/COMMAND LINE TOO LONG. 

201 

00120 

R 

741000 

A 


SKP 



222 

00121 

R 

200436 

R 

E9R2"" 

LAC 

CMES2) 

/SYNTAX ERROR. 

203 

00122 

R 

741000 

A 


SKP 



2^3 

00123 

IT 

200437 

R 

ERRS 

LAC 

(MES3) 

/file not found. 

205 

00124 

R 

741000 

A 


SKP 



206 

WT25 

R 

200440 

P 

ERR4 

LAC 

CMES4) 

/file STILL OPEN, 

207 

00126 

R 

741000 

A 


SKP 



208 

00127" 

R 

200441 

R 

ERR5 

LAC 

CMES5D 

/"DELETE" ERROR. 

209 

00130 

R 

040142 

R 


OAC 

TYPE+4 


210 

00131 

R 

200344 

R 


LAC 

EV 

/SAVE EV VALUE SO THAT SOMEONE MAY EXAMINE 

211 

00132 

R 

040347 

R 


DAC 

ERRCOO 

/IT BY USING THE "OPEN" hCR FUNCTION* 

212 

00133 

R 

000136 

R 


CAL 

TYPE 

/TYPE THE MESSAGE. 

213 

00134 

R 

000342 

R 


CAL 

WAITFR 


214 

00135 

IT 

600115 

R 


jMp 

EXIT 


215 





/ 




2l6 

00136 

T 

002700 

A 

TYPE 

2700 


/"WRITE” CPB, 

217 

00137 

R 

000344 

R 


EV 



216 ‘ 

00140“ 

R 

000015 

A 


TDVTTY 


/TOV TTY ERROR LUN, 

219 

00141 

R 

000002 

A 


2 


/IOPS ASCII. 

'220 

00142 

IT 

“740040 

7 


XX 


/MfsTAGE ADDRESS, 

221 





/ 




“222 

00143 

IT 

005002 

A 


005002; 

" 0 ; .ASCII * 

OEL-L INE TUo L0NG 0 <l5> 


00144 

R 

000000 

A 






00145 

"IT 

422131 

A 






00146 

R 

426630 

A 






00147" 

IT 

"446350 

A“" 







00150 

R 

520250 

A 






00131 

~R~ 

476364 

A 






00152 

R 

046236 

A 






07m 

"IT 

~*Tuei 

A 







00154 

R 

500000 

A 





226 

"00155 

IT 

004002 

A 

""HIS7 ' 

004002"; 

01 .AStTl 7 

DEL-SYNTAX ERR”<15» 


00156 

R 

000000 

A 






00137 

TT 

422 1 3 1" 

A 






00160 

R 

426646 

A 





• 

001*1 

R 

”646352 

A 
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PACE 6 DEL. 16 SRC *** TDV FUNCTION "DELETE" 



00162 

00163 

R 

R 

440660 

202132 

A 

A 






00164 R 251032 

A 





224 

00165 

R 

005002 

A 

HESS 

0050021 

01 .ASCII 

"DEL-FILE NOT FOUND"<15> 


00166 

nr 

000000 

A 






00167 

R 

422131 

A 






00170 

nr 

426614 

A 






00171 

R 

446310 

A 






00172 

R 

920234 

A 






00173 

R 

476304 

A 






00174 

R 

043236 

A 






00175 

R 

526350 

A 






00176 

R 

406400 

A 





225 

00177 

R 

005002 

A 

MES4 

005002| 

01 .ASCII 

"DEL-FILE STILL 0PEN"<15> 


00200 

nr 

000000 

A 






00201 

R 

422131 

A 






00202 

nr 

426614 

A 






00203 

R 

446310 

A 






00204 

nr 

520246 

A 






00205 

R 

522231 

A 






00206 

nr 

446100 

A 






00207 

R 

476410 

A 






00210 

nr 

547032 






226 

00211 

R 

004002 

A 

_MES5 

004002| 

01 .ASCII 

"DEL-DELETE ERR"<15> 


002T2~ 

nr 

000000 

A 






00213 

R 

422131 

A 






00214 

nr 

426610 







00215 

R 

426310 

A 






00216 

nr 

552212 

A 








00217 

R 

202132 

A 






00220 R 291032 A 

227 ____ / 


"22T .EJIcf 


XI-3-10 



PACE 7 

DEL* ! 

L6 

SRC 

' * * * 

TDV FUNCTION 

"DELETE" 




229 





/ SUBROUTINE 

unpack unpack 7-bit ascii characters from 

THE 

COMMAND 

230 





/ INPUT 

line 

AND STORE THEM 

SEQUENTIALLY IN «BUF« VIA X10 

(ALREADY SET UP). 






/ THF NEGATIVE COUNT OF (MAXIMUM NUMBER OF CHARACTERS ♦ l) 

IS 

IN THE AC. 

232 





/ 






233 





/ CALLING SEQUENCE! 




234 





/ 






235 





/ 

.COUNT IN THE AC 




236 





/ 

JMS 

unpack 




237 





/ 

(RETURN IF NO ERROR 

OCCURRED) 



236 





/ 






239 





/ ALTEREn REGISTERS: 




240 





/ 






241 





/ 

AC & 

MQ 




242 





/ 






243 

00221 

R 

000000 

A 

UNPACK 

0 





244 

00222 

R 

040349 

R 


D AC 

cnt 

/SAVE COUNT t 



249 

00223 

R 

100247 

R 

LOQPl 

JMS 

FAC 

/FETCH A CHARACTER. 



246 

00224 

R 

040346 

R 


0 AC 

CHAR 




247 

"00225 0 

940431 

__ 


SAD 

(54) 

/COMMA? 



246 

00226 

R 

600244 

R 


JMP 

N0T6BT 

/YES — DELIMITER. 



240 

00227 

IT 

723737 

A 


a4T~ 

-41 




290 

00230 

R 

741100 

A 


SPA 





131 

00231 

R 

“500044 

_ 


JMP 

N0T6BT 

/NOT .SIXBT. CHAR < 41. 



292 

00232 

R 

723701 

A 


AAC 

-77 




253 

00253" 

R 

740100 

A ' 


SMA 





294 

00234 

R 

600244 

R 


JMP 

N0T6BT 

/NOT .SIXBT. CHAR > 137. 



253 

00235 

IT 

440345 R 


js2 

CNT 




296 

00236 

R 

741000 

A 


SKP 





297 

00237 

R 

600121 

R 


JMP 

ERR2 

7T00 MANY C H ARACT ERS . 



298 

00240 

R 

200346 

R 


LAC 

CHAR 

/STORE CHARACTER. 



290 

00241 

IT 

“050010 

A 


DA5F 

XI 0 




260 

00242 

R 

600223 

R 


JMP 

LOOP1 




261 





/ 






262 





/ FILL 

in the 

REMAINDER OF 

THE NAME WITH ZEROS. 



‘263 





/ 






264 

00243 

R 

160010 

A 


nZM* 

X10 




269 

00244 

IT 

440349 

R 

N0T6BT 

j3T 

' vf CNT ' 




266 

00249 

R 

600243 

R 


JMP 

.-2 




257 

"05245" 

“FT 

620221 

R 


JMP * 

uRFaCk 




268 





/ 







489 - TeJfCT 
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PAGE 8 DEL. 16 SRc *** TDV FUNCTION "OELETE* 

270 / SUBROUTINE FAC — FETCH A CHARACTER F^QM THE 5/7“ ASCII LINE BUFFER »FACLBt." 

271 / THE INPXCIE8 »FACLBX 1 AND «FACCBX» MUST BE SET WHEN A NEW LINE 18 READ. 

/ CHARACTERS ARE NOT fetched BEYOND terminal CHARACTERS. 

273 / 

"274 / CALLING SEQUENCE* 

275 / 


276 

277 




/ 

/ 

JMS FAC 

(UNCONDITIONAL RETURN 

WITH CHARACTER IN THE AC) 

478 

279 




/ 

/ 

altered registers: 


260 

261 




/ 

/ 

AC & HQ 



“252 

263 

00247 

R 

000000 

/ 

4 FAC 0 



264 

285 

00250 

00251 

~TT 

R 

220314 

740100 

R 

A 

lac* 

SHA 

FACCBX 

/FETCH THE NEXT UNPACKEO CHARACTER FROM »FACCB', 

/WAS the character buffer ^faccbj empty? 

266 

287 

00252 

00253 

"R" 

R 

600277 

200442 

R 

R 

JM? 

LAC 

FAC2 

(FACCB*l) 

/NO — TEST FOR A TERMINAL CHARACTER. 

/YES — REFILL 'FACCB» FROM THE INPUT LINE. 

286 

289 

00234 

00255 

R 

R 

040314 

220313 

R 

R 

0 AC 

lac* 

FACCBX 

FACLBX 

/(FIRST HALF OF WORD PAIR). 

2W8 

291 

00255" 

00257 

"R" 

R 

440313 

652000 

A 

A 

IDX 

lmq 

FAtLBX” 


~~292 

293 

00260 

00261 

nr 

R 

754000 

100305 

A 

R 

CL*ICLL 

JMS 

FACUPS 

/(FIRST CHARACTER). 

294 

295 

00262 

00263 

R 

R 

100305 

100305 

R 

R 

JH3 

JMS 

FACUPS 

FACUPS 

/(SECOND “CHARACTER). 

/(FIRST 4 BITS OF THIRO CHARACTER). 

79F 

297 

00264 

00265 

nr 

R 

22051 5 
440313 

R 

R 

LAC* 

IDX 

FA6LBX 

FACLBX 

/TSecqno half OF word PAIR). 

296 

299 

00255” 

00267 

nr 

R 

640517 

260314 

A 

9 

LRS 

XOR* 

17 

FACCBX 

/(LAST 3 BITS OF THIRD CHARACTER). 

300 

301 

00270 

00271 

nr 

R 

060314 

750000 

A 

DA5*” 

CLA 

FACCBX 


302 

303 

00272 

00273 

nr 

R 

100305 

100305 

R 

R 

j"mS‘ 

JMS 

FACUPS 

FACUPS 

/(FOURTH CHARACTER). 
/(FIFTH CHARACTER). 

304 

305 

" 00274' 
00275 

nr 

R 

200443 

040314 

R 

R 

LAC 

DAC 

(FACCB) 

FACCBX 

/RESET THE CHARACTER BUFFER INDEX, 

306 

307 

00275” 

R 

220314 

R 

LAC* 

FACCBX 

/FETCH THE FIRST CHARACTER FROM THE 
/CHARACTER SUFFER. 

<306 

309 

310 

311 

312 

313 

00277 

00300 

00301 

00302 

R 

nr 

R 

nr 

540425 

520247 

540426 

620247 

/ 

R FAC2 SAO 

~R" jMP* 

R SAD 

R jM p* 

(015) 

FAC 

(175) 

FAC 

/IF IT IS A TERMINAL CHARACTER , CARRIAGE 
/RETURN OR ALTMOOE , RETURN wITH THE CHARACTER 
/IN THE AC BUT 00 NOT AUGMENT THE CHARACTER 
/BUFFER INDEX. THUS, REPEATED CALLS TO FAC 

/will return the terminal character. 

314 




/ 




315 

316 

317 

318 

319 

00303 

00304 

R 

R 

440314 

620247 

R 

R 

/ 

tdx 

JMP* 

.EJECT 

FACCBX 

FAC 

/IT IS not A TERMINAL CHARACTER -- AUGMENT 
/THE CHARACTER BUFFER INDEX AND RETURN WITH 
/THE CHARACTER IN THE AC, 


XI-3-12 


PAGE 


DEL. 16 SRC 


* * * JO V FUNCTION "DELETE” 


320 

321 
”J52" 

323 

324 

325 

326 

327 


“ 318 “ 

329 

330 

331 
532 
333 

”334' 

335 

336 

337 

338 


SUBROUTINE FACUPS — UNPACKING SUBROUTINE USED BY «FAC». 


/ calling sequence* 

/ 

/ AC & LINK MUST BE CLEARED. 

/ NEXT character MUST BE IN 

/ THE HIGH-ORDER END OF THE MQ, 

/ » FACCBX 1 MUST POINT TO THE 


WORD PRECEDING THE ONE IN 
WHICH THE CHARACTER IS TO 
BE STORED. 

JMS _ FACUPS 
f UNCONDITIONAL RETURN WITH 
♦F A CCBX * P OINTING TO THE _ 
STORED CHARACTER AND WITH 
THE AC & LINK LEFT CLEARED) 


altered registers* 


339 





/ 

AC & HQ 


141 ' 

341 

342 

343 

344 

345 

00305 

00308" 

00307 

R 

R 

R 

000000 

640607 

440314 

A 

A 

R 

/ 

FACUPS 

0 

LLS 

IDX 

7 

FACCBX 

FACCBX 


00310 

00311 

R 

R 

060314 

750000 

R 

A 


DAC* 

CLA 

“348 

00 31 2 " 

IT 

6203P3 

IT 


jhP# 

FACUPS 


347 





/ 




348 

00313 

R 

T400 - 4T 


FACLRX 

XX 



349 

00314 

R 

740040 

A 

FACCBX 

XX 



350 

00315 

“R 


T~ 

FACCB 

".BLOCK 

5 


351 

00322 

R 

777777 

A 


-1 




/SHIFT THE CHARACTER INTO THE AC. THE LOW 
/ORDER BITS OF THE_ THIRD CHARACTER ARE ZERO 
/BECAUSE THE LINK IS ZERO. 


/LINE BUFFER INDEX. 

/CHARACTER BUFFER INDEX. 

/Character buffer cs image alpha characters). 
/E NO-OF- 1 FACC 8 ♦ INDICATOR. 


353 


’.EJECT 
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PACE 10 

DEL. 18 

SRC 

*** 

TDV FUNCTION "DELETE" 


334 

00323 R 

000001 

A 


REQTOV 

i 


/"REQUEST" CPB. 

355 

00324 R 

000000 

A 



7 


/NO EVENT VARIABLE- 

300 

00325 A 

240426 

A 



.SlXBT 

"TDV" 


357 

00326 R 

505656 

A 



'.SlXBT 



371 

00327 R 

000000 

A 



0 


/USE THE DEFAULT PRIORITY. 

359 





/ 




^370 

00370 R 

003500 

A 


DELETE 

3300 


/"DELETE" CPB. 

361 

00331 R 

000344 

R 



EV 



302 

00332 R 000021 

A 



UJfi 



363 

00339 R 

355535 

A 



.sixbt 

R R 

/FILE NAME — 1ST HALF. 

304 

00374 R 

555333 

A 



.SlXBT 

*mmm* 

/FILE NAME — 2ND HALF. 

363 

00335 R 

555535 

A 



.SlXBT 

R mmm It 

/FILE NAME -- EXTENSION. 

371 





/ 




367 

00330 R 

000037 

A 


XFER 

37 


/"TRANSFER TDV COMMAND LINE" CPB. 

m 

00337 R 

000344 

R 



EV 



309 

00340 R 

000361 

R 



FACLB 


/BUFFER address^ 

770 

00341 R 

000040 

A 



C0ESIZ 


/BUFFER SIZE. 

371 





/ 




372 

00342 R 

000020 

A 


WAITER 

20 


/" WAITFOR" CPB. 

373 

00343 R 

000344 

R 



EV 



37 4 





/ 




375 

00344 R 

000000 

A 


EV 

0 


/EVENT VARIABLE. 

377 

00345 R 

000000 

“T 


TRT 

0 


“ " /COUNTER. 

377 

00340 R 

000000 

A 


CHAR 

0 


/INPUT CHARACTER. 

777 

077*7* R 

000000 

A 


T7TC00 

0 


/EV VALUE SAVED* BEFORE ERROR PRINTOUT IN 

379 








/CASE SOMEONE WANTS TO EXAMINE IT USING 

300 








/The '‘open" mcr function. 

301 





✓ 




362 






;oec 



383 

00350 R 


A 


8UF _ 

.BLOCK 

9 

/FILE NAME BUFFER. 

384 






;oct 



383 





/ 




377 

00371 R 


~T 


FACLB 

.BLOCK 

ciFsiz 

/COMMAND INPUT BUFFER, OR 

387 








/FETCH-A-CHARACTER BUFFER. 

sir 

00421 R 

*774032" 

~k~ 



064032 


/GUARO WORD — GUARANTEES FINDING 

389 








/CARRIAGE RETURN AT END OF BUFFER. 

390 " 





/ 




391 

— 00422 7 

000000 

-CTaTiPC 

R 

-p- 

a| 



.END 

OEL 

. . _ 


00423 R 

PB V OO 0 

000322 

P 

w W 

*L 






00424" R" 

000040 

"AT 

*L 






00425 R 

000015 

A 

*L 






07426 R 

770177 

A 







00427 R 

000347 

R 

*L 






00430 R 000010 A 

00431 R 000034 A *L 

00432 R 032203 A *L 

00433 R 777705 A *L 

00434 R 777724 A *L 

0043 5 RJJ001A3 R_ *_L_ 
00476 lR 000 155“ R *L 
00437 R 000105 R *L 
00440 R 000177 R *L 
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PACE 11 DEL, 16 SRC *♦* TDV FUNCTION "DELETE" 

0044 r R 0002111’ *L 
00442 R 000314 R *1 

00443 R 0003 lS ft *L 

SIZE *00444 NO ERROR LINES 
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DEL. 16 CROSS REFERENCE 


BUF 00350 107 US 

159 383* 

CBFSIZ 000040 75* 370 

~~THTR 00346 130 180” 

CNT 00345 244 25S 

DEL 00000 75* 391 

OELETE 00330 123 130 

ERRCOD 00347 2Tl 370* 

ERRj 00117 83 200* 

ERR2 00121 100 122 

ERRS 00123 177 204* 

EWTi"" 00125 179 200^" 

ERRS 00127 181 208* 

TV 00344 T2 175 

EXIT 00119 194* 214 

“FTC 007T7 93 TUT" 

FACCB 00315 91 287 

-TICCW 00314 92 284” 

344 349* 

FACLB 00361 89 369 

FACLBX 00313 90 289 

FAC UP 5 — wm — 253 f94~ 

FAC2 00277 286 309* 


L55F1 00223 243* 260 

LUN 000021 70* 362 

TT3T 00TT3 — 250 22?* 

ME82 00155 202 223* 

5533 00165 20T 224 * 

HE84 00177 206 225* 

mrSF 00211 205 225* 

NEXF1L 00021 98 107* 188 


REQTDV 00323 194 354* 

TDYTTY 000015 7T* 211 

TYPE 00 136 209 212 216* 

UNP JiCk 5022 1 1 1 0 l50 243* 267 

U3E8RC 00072 142 168* 

XFER 00336 79 _ 367* 

X 1 0 000010 73 * 1 08 ' 255 284 
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CHAPTER 4 


CONSTRUCTION OF I/O DEVICE HANDLER TASKS 


4.1 CONVENTIONS FOR I/O HANDLER CONSTRUCTION 

I/O Device Handlers are Tasks responsible for controlling the 
operations of I/O devices. Unlike front-end interrupt driver Tasks, 
I/O Handlers are written to facilitate concurrent use by several Tasks 
by means of a standard system interface, I/O Directives. Although the 
basic RSX system provides Handlers for all standard I/O devices, the 
user can facilitate the operations of nonstandard or infrequently used 
devices by writing his own I/O Device Handler Tasks. 

Conventions for constructing I/O Device Handler Tasks and a brief 
description of the most important concepts behind the operation of I/O 
Handlers are included below: 

1. The name of the I/O Device Handler Task must consist of two 
characters, followed by four dots, as in the following: 

LP .... 

CD .... 

AD .... 

Characters included in a Handler Task name typically 
represent the name of the device associated with the Handler 
(see Table 4-1 below) . 

2. I/O Device Handler Tasks are built to run in EXEC mode. 

3. The RSX system effectively allows device independence. I/O 
requests are typically issued by Tasks to devices identified 
by Logical Unit Number (LUN) . Requests are queued, by means 
of the QUEUE I/O Directive, and are routed through the 
Handler associated with the appropriate device. 

4. LUNs and their current device assignments are stored in a 
Logical Unit Table (LUT) . There are one-word entries or slots 
in this table for as many as 512 different LUN assignments, 
and all can be reassigned or removed by means of the REASSIGN 
MCR Function Task. 

5. The Attach Flag Table (AFT) contains a one-word entry for 
each LUN. When a user Task requests that a device be 
attached, the AFT slot for the appropriate LUN is set to the 
address of the requesting Task's System Task List (STL) node. 
If a LUN is not attached, its slot is filled with zeros. 
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6* The Physical Device List (PDVL) is a system list or deque 
containing a series of nodes describing all physical devices 
in the RSX system. 

7. I/O Rundown is the delaying of the availability of a core 
partition until all transfers to and from that partition have 
stopped or have been allowed to complete. I/O Rundown is 
performed when a USER-mode Task exits. 

8. Each time a LUN is assigned to a particular physical device 
unit, the I/O Device Handler for that device is requested by 
the REASSIGN MCR Function Task. When in core, the Handler 
then initializes itself by connecting to an interrupt line 
and by entering its Trigger Event Variable address in the 
appropriate PDVL node. This effectively informs the system 
that the Handler is ready to accept I/O requests. 

9. The Handler idles in a wait state until the requesting Task 
causes the Trigger Event Variable of the requested device to 
be set, indicating that the Handler is needed. 

10. I/O requests are handled by processing requests according to 
Task priority. If a device has been attached, only requests 
from the attaching Task will be serviced, until a DETACH 
Directive is issued. Requests from other Tasks can, however, 
be queued. 

11. Handler processing proceeds at Task level (API-7) , but can be 
interrupted by hardware interrupts from the device it is 
handling. The interrupt service subroutine which performs 
this interrupt operates somewhat independently of the Task in 
which it is found. Interrupt service routines must save 
commonly used registers on entry and restore them on exit. 

12. When a request has been completed (successfully or 

unsuccessfully) , the count of current I/O requests is 
decremented before the Event Variable associated with the 
request is set and returned. The Handler then waits for the 
next Trigger Event variable to be set. 

13. When the last LUN assigned to a Handler is reassigned, the 
Handler associated with the referenced device must relinquish 
system resources and disconnect from its interrupt line 
before exiting. 

14. Special I/O buffers located in a Task*s partition are 
available to I/O Handlers for buffering small data records. 
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Table 4-1 
RSX Devices 


Device Name 

Device 

Handler Task 

TTn 

Terminal 

TTY 

DTn 

DECtape 

DT 

MTn 

Magtape 

MT 

DK 

Disk Driver 

DSK 

RF 

Fixed-Head Disk 

RF. . . . 

RPn 

Disk Pack 

RP. . . . 

RKn 

Disk Cartridge 

RK 

PR 

Paper Tape Reader 

PR. . . . 

PP 

Paper Tape Punch 

PP 

CD 

Card Reader 

CD. . . . 

CP 

Card Punch 

CP 

LP 

Line Printer 

LP .... 

AD 

Analog-to-Digital Converter 

AD. . . . 

AF 

Automatic Flying Capacitor Scanner 

AF . . . . 

UD 

Universal Digital Controller 

UD 

CC 

System COMMON Communicator 

CC 

VTn 

Display 

VT 

VWn 

Writing Tablet 

VW 

XY 

XY Plotter 

XY 


XVM/RSX VlB 
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4.2 SAMPLE I/O DEVICE HANDLER TASK 

This section presents a sample I/O Device Handler Task named LP...., 
which is responsible for handling the LP series of line printers. A 
full assembly listing of LP.... is included on subsequent pages. The 
following description summarizes the flow of control through this 
program. Line numbers in the leftmost column below refer to decimal 
line numbers included at the left margin of the assembly listing. 

Line Number Label Description 

209-291 START This is the Handler initialization 

section required by all I/O Device 
Handler Tasks. Between lines 209-213, 
the Physical Device List (PDVL) is 
scanned for a node for this device. If 
the node is found (line 216) , this means 
the device name (line 260) was found in 
the PDVL and the node's address is 
returned in the AC register. If the 
node is not found (line 215) , the Task 
exits since no node having the name "LP" 
was found in the PDVL. Once the node 
address is returned in the AC, the 
address of the Trigger Event Variable in 
the node is calculated and saved (line 
218) . The interrupt line is then 

connected (if no connection was made the 
Task exits) and the address of the 
Trigger Event Variable is placed in the 
PDVL node (line 223) . Lines 225 to 227 
calculate an adjustment factor to be 
used for the Index Register later when 
obtaining arguments by indexed 
addressing in areas outside the current 
4K memory page. The Handler then clears 
the controller and waits for the Trigger 
Event Variable, TG, to be set (WAITFOR 
TG) . 

WFTGR Wait for the Trigger Event Variable to 
be set nonzero, indicating that an I/O 
request has been queued. 

PQ The Trigger Event Variable has been 

triggered. (The CAL Service Routine in 
the Executive triggers the Event 
Variable whenever the Handler has an I/O 
request.) The Trigger is cleared (line 
303) to prevent the Handler from being 
inadvertently called when the WAITFOR TG 
is again issued. At line 327 the 
request is dequeued (remove from the 
queue) and, if the queue is empty, the 
Handler issues a WAITFOR TG, which will 
be set at the next I/O request for this 
device. If a rode was dequeued, the 
request node address is saved for later 


294-297 

299-348 
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Line Number 


352-377 


382-390 

410-901 


Label Description 

node access (line 330) , and the CAL 
Function Code is extracted (line 334) . 

The CAL Function is then tested for 
ABORT, ATTACH, DETACH, etc. During the 
attempt to dequeue a request (line 329) , 
if the dequeue was not made (empty 
queue) , a return from DQRQ immediately 
follows the JMS; otherwise the return 
is at JMS+2 (line 330) . If the dequeue 
was made, the AC contains the address of 
the dequeued node. If not, the AC 
contains either zero, (if the queue was 
empty) , or nonzero, (if the device has 
been attached) . This is useful when 
Device Handlers are multiunit and the 
REASSIGN MCR Function removes one of its 
units from the Logical Unit Table. 

ABORT The ABORT request can legally be made 

only by the I/O Rundown Task, IORD 
(lines 352-354) . It is a request to 
terminate all I/O for the named Task. 
At lines 369-377, the DMTQ subroutine is 
called to detach (if necessary) the line 
printer and the LUN by which it was 
attached, and then to empty the Line 
Printer I/O Request Queue of all 
requests made by the named Task. 

Because the Line Printer Handler is 
internally buffered and does not dequeue 
another request until a transfer is 
complete, it is not necessary to stop 
possible ongoing I/O. For other 

devices, this is not generally the case. 

ATTACH Routines to ATTACH, DETACH, and return 
Handler Information (HINF) • 

PRINT Routines to prepare information for and 

handle the hardware of the LP device. 


908-913 WFAB Subroutine to wait for the Event 

Variable to be set nonzero and then to 
test if an ABORT request has been made. 
Whe never an ABORT request is queued, bit 
2 of the Handler's Trigger Event 
Variable is set nonzero. If ABORT is 
pending, it must be honored at this time 
because WFAB may have been called to 
wait for expiration of a mark-time delay 
(lines 893-894) , following a line 
printer not-ready condition. Since the 
printer could remain in the not-ready 
state indefinitely, the Handler cannot 
wait for that condition to clear before 
performing the ABORT. At line 927, the 
DQRQ subroutine is called to dequeue the 
ABORT request node, whose address is 
returned in the AC register. Then the 
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Line Number 


942-967 


971-999 


Label Description 

DMTQ routine is called to detach the 
printer and the LUN by which it was 
attached (assuming it was attached) . 
DMTQ then empties the I/O Request Queue 

of all requests made by the Task 
referred to in the ABORT request. When 
the ABORT request has been honored , the 
Event Variable is set (line 931) to 
signal the I/O Rundown Task of this 
fact. 

SEVRN Subroutine for setting the requester's 

Event Variable from the value in the AC. 
This must be done using the Index 
Register, since the requesting Task can 
be located outside the 32K addressing 
range (line 953) . Once I/O is complete 
(this includes setting the requester's 
Event Variable), the requester's 
transfers-pending count is decremented 
(line 957) so that a count of pending 
requests (which could alter the 
requester's core) is maintained. This 
count is necessary for the success of 
I/O Rundown. A Significant Event is 
declared (lines 959-960) , which may 
cause control to pass to a Task of 
higher priority (i.e., if that Task has 
been waiting for the Line Printer 
Handler to set its Event Variable) . 
Finally, the I/O request node, no longer 
needed, is returned to the Pool of Empty 
Nodes (lines 962-965) . 

DAEX DISCONNECT & EXIT request made only by 

the REASSIGN MCR Function. This occurs 
after all LUNs are reassigned away from 
the Line Printer. Until the Handler 
honors this function, the line printer 
cannot be resurrected (reassigned back 
to a LUN) because the assign inhibit 
flag is set (by REASSIGN) in the line 
printer's Physical Device node. First, 
the I/O request node is returned to the 
Pool of Empty Nodes (lines 971-975) . 
Then, the line printer is disabled and 
the Handler disconnects from the 
interrupt line (lines 980-981) . 
Finally, the assign inhibit flag within 
the LP Physical Device node is cleared 
and the Handler exits (lines 995-999) . 
Interrupts are inhibited briefly so that 
the Handler cannot be interrupted after 
clearing the flag but before exiting. 
If this were not done, REASSIGN 
(assuming it was given a priority higher 
than the Line Printer Handler) could in 
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Line Number 


1003-1034 


1036-1085 


Label Description 

theory request the Handler while still 
active . Note that decrementing the 
transfers-pending count (as is done at 
line 957) is not necessary here, since 
REASSIGN is not a USER-mode Task. 

INT This is the interrupt service routine 

which reads the status of the line 
printer (always nonzero) and saves it in 
the Handler 1 s Event Variable. A 

Significant Event is then declared and 
return given to the interrupted program. 
The Accumulator, the only common 
hardware register used, is saved on 
entry and restored on exit. 

XADJ Variables, CAL Parameter Blocks, and 

error messages. 
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PACE 1 


LP,*2 SRC 


RSX LINt PRINTER HANDLER 


1 

2 

3 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 
23 


.TITLE RSX LINE PRINTER HANDLER 

/ 

/ COPYRIGHT (C) 1975 

7 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

✓ 

7 THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
7 ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
7 THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
/ SOFTWARE, UR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 
7 VIOED OH OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
7 EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
/ THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
7 SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC, 

7 

7 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
/ WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
/ MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

7 

/ DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
7 OF ITS SOFTWARE ON EQUIPMENT WHICH IS NUT SUPPLIED BY 
7 OEC, 

7 

.EJECT 
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24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
69 
76 

71 

72 

73 

74 

75 


7 


/ 

EDIT *28 

8/29/73 

S. ROOT 

7 

EDIT 421 

11725/73 

G, COLE 8 S, ROUT 

7 

EDIT «22 

1 1 726/7S 

S.RCOT FIX TOO SHORT LINE 

/ 

EDIT 417 

30 APR 72 

H. KREJC1 

7 



C, PROTEAU 

7 



w. A. DESIMONE 

7 

EDIT 423 

179/74 

SLR CLEANUP 

7 

EDIT 424 

1/17774 

SCR CLEANUP 

7 

EDIT 425 

171B774 

SLR CLEANUP 

7 

EDIT 426 

272/74 

API TRAP VECTDR NUMBER ERROR 

7 

EDIT 4027 

272/74 

FIX NO QK EXIT PROBLEM 

/ 

EDIT 4028 

272/74 

FIX IMAG MODE COUNT 

/ 

EDIT 4029 

2/28774 SCR 

put line feed back for ucis image mode 

7 

EDIT 4031 

5725774 SCR 

4030 MAD A RUN-DOWN PROBLEM, RETRENCH 

7 



TO 029 MOSTLY 

7 

EDIT 4032 

5/9/75 MJH 

MISSING DISCLAIMER 

7 

7 

COPYRIGHT 1971, 1972, 

1973, 1974 

U1GITAL EQUIPMENT COKP ( , MAYNARD, MASS. 


7 

/ MODIFICATIONS FOR UC15 UNIChAnnEL LINE PRINTERS 

7 

/ WHEN THE ASSEMBLY PARAMETER UC15»-3 IS SUPPL1EO, A VERSION 
7 FOR THE UNICHANNEL PRINTERS IS CREATED. 

7 

/ IN THIS CASE THE INTERNAL BUFFER IS PACKEO TwQ CHAR'S PER 
7 WORD, RIGHT JUSTIFIED, WITH THE TWO TOP BITS UNUSED. 

/ THE FIRST CHARACTER GOES ON THE RIGHT 1 , THE SECOND ON THE LEFT! 
7 

/ ERROR CONDITIONS ARE ENTIRELY HANDLED ON THE PDP-11 SIDE. THE 
/ PDP-15 SIDE HANDLER ASSUMES THAT THE DEVICE NEVER MAKES AN 
/ ERROR f SOME OPERATIONS JUST TAKE A WHILE TO COMPLETE. ERROR 

/ messages are placed in a table in the pikex-ii exec, a 

/ SEPARATE task PRINTS OUT ANY ERROR S THAT OCCUR. THE 

/ POP-n HANDLES TIMEOUT until DtVlCE READY. 

7 

f WARNING! 1 

7 

/ IN ORDER FOR THE UC15 HANDLER TO FUNCTION PRUPERLY, THE 
/ PDP-11 MUST BE ABLE TO ACCESS OUR INTERNAL BUFFER 
/ and TCb'S. THIS MEANS THAT THEIR ADDRESS MUST BE LESS THAN 
/ 28K TO THt PDP-11. THUS. IF THE PDP-11 LOCAL MEMORY IS 8K . 

/ THIS HANDLER MUST RESIDE BELOW 20K IN PDP-15 CORE! THIS IS 

/ EQUIVALENT TO 50030 OCTAL. SIMILARLY, IF THE LOCAL 
/ PDP-11 MEMORY IS 12K, THt HANDLER MUST RESIDE BELOW 
7 40000 OCTAL. 

/ 

/ STANDARD SERIES printers 
/ 

/ 

7 THIS HANDLER DRIVES THE LP15 PRINTER SERIES. IT IS 
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76 

/ 

COMP AT IBLfc WITH NORMAL OUTPUT FROM MACRO 8 FORTRAN WRITTEN 

77 

/ 

PROGRAMS, 

76 

/ 


79 

/ 

TO SATISFY A PRINT REQUEST, THE UNt IS MOVfcU TO A DUFFER IN 

60 

/ 

THE HANDLE* TASK BECAUSE IT MAY HAVE TO HE MOQIFItO (IF NORMAL 

61 

/ 

FORTRAN OUTPUT!, AND BECAUSE A NORMAL MODE REQUESTOR MUST 

82 

/ 

NOT BE ABLt TO MODIFY THE LINE AFTER THE HARDWARE HAS BEGUN 

83 

/ 

TO READ IT (THE LP15 CONTROLLER UNPACKS 5/7 ASCII CHARACTERS 

84 

/ 

UNTIL A VERTICAL CONTROL CHARACTER IS FOUNQ), 

85 

/ 


66 

/ 

ALL IMAGE MODE OUTPUT AND ASCII OUTPUT NOT BEGINNING WITH 

87 

/ 

12 (LINt FEtD), 14 (FORM FEED), 21 (DOUBLE SPACE) , OR 20 

88 

( 

COVER PRINT) IS PRECEDED BY A LINE FEED, AND PRINTED IN 

89 

/ 

SINGLE LINt MODE, 

98 

/ 


91 

/ 

FOR ASCII mode OUTPUT BEGINNING WITH 12, 14, OR 21 (FORTRAN 

92 

/ 

OTS OUTPUT), THE HIGH ORDER HEADER HALFwOPO IS SET TO TWO (TO 

93 

/ 

INDICATE T*0 "LINES") AND THE LINE IS OUTPUT IN MULTIPLE-LINE 

94 

/ 

MODE, 

95 

/ 


96 

/ 

FOR ASCII MODE OUTPUT BEGINNING WITH 20 (FORTRAN OTS OUTPUT TO 

97 

/ 

OVERPRINT THE PREVIOUS LINE), THE HIGH OROER HEADER HALFWORD 

98 

/ 

IS SET TO Two, THE 20 15 CHANGED TU A 16 (CARRIAGE RETURN, 

99 

/ 

WHICH IS EFFECTIVELY A NOP), AND THE LINE IS PHINTEO IN MULUPLt 

100 

/ 

line mode. 

101 

/ 


102 

/ 

THERE ARE No IHPQSED PAGE EJECTS AT PAGt BOTTOMS, 

103 

/ 


104 

/ 

THE FOLLOWING CAL PARAMETER BLOCKS ARE USEO TO QUEUE REQUESTS FOR 

105 

t 

PRINTER SERVICES 

106 

/ 


107 

/ 

CPB 3608 HANDLER INFORMATION (HlNF) 

108 

t 

EV 

109 

t 

LUN 

110 

/ 


111 

/ 

CPB 2408 ATTACH PRINTER 

112 

/ 

EVA 

113 

/ 

LUN 

114 

/ 


115 

/ 

CPB 2/00 PRINT LINE 

116 

t 

EVA 

117 

/ 

LUN 

116 

/ 

MODE 

119 

/ 

LINE 

120 

/ 


121 

/ 

CPB 2500 DtTACH PRINTER 

122 

/ 

EVA 

123 

/ 

LUN 

124 

/ 


125 

/ 

THE REQUESTOR'S EVENT VARIABLE IS CLEARED (ZEROED) WHEN THE REQUEST 

126 

( 

15 QUEUEO BY THE "QUEUE I/O" DIRECTIVE, IF THE REQUEST CAN BE 

127 

/ 

PERFORMED, THE EVENT VARIABLE IS SET TO ONE (♦!) UPON COMPLETION, 
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RSX LlNt PRINTER HANDLER 


126 

129 

136 

131 

132 

133 

134 

135 

136 

137 
136 

139 

140 

Mi 

142 

143 

144 

145 

146 

147 
146 

149 

150 

151 

152 

153 

154 

155 

156 

157 
156 

159 

160 
161 
162 

163 

164 

165 

166 
167 
166 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


0000 12 * 

909013 A 
900017 A 
909101 A 
900102 A 
900103 A 
909104 A 
900107 A 
909123 A 
909240 A 
909252 A 
900325 A 
900332 A 
900337 A 
900342 A 
900345 A 
900361 A 
900010 A 
909002 A 

900034 A 
909035 A 
706541 A 
706521 A 
706552 A 
706544 A 
700561 A 
706621 A 
706641 A 
705522 A 
705521 A 


/ IP THE REQUEST CANNOT BE PERFORMED, THE EVENT VARIABLE IS SET TO ONE 
/ OP THE FOLLOWING NEGATIVE VALUES! 

/ 

/ -6 — ILLEGAL REQUEST FUNCTION 

/ -7 — ILLEGAL OATA MODE 

/ -16 — ILLEGAL OUTPUT HEADER WORO-PAIR-CUUNT (<1) 

/ -24 — LUN HAS BEEN REASSIGNED MH1LE REQUEST WAS IN QUEUE 

/ -30 — UUT-OF-PAHTITION TRANSFER (NORMAL MOUE) 

/ -203 - ILLEGAL TO ATTACH OR DETACH pROM OTHER THAN TASK LEVEL 

/ 

X 12*12 
X13»13 
X17M7 
Rl*101 
R2 3 102 
R3*183 
R4«104 
NAOU«107 
5NAHM23 
PUQL*240 
PUVL*252 
ALA0"325 
0LAU»332 
DQRQ>337 
VAJX*342 
IUCD*345 
0MTU«361 
0. TG* 10 
LUN«2 

NCA«34 
CAA>35 
LPP1*706541 
LPPM«706521 
LPRS«706552 
LPEI*706544 
LPDW06561 
LPCD*70662t 
LPCSW706641 
•INHB705S22 
,ENB»705521 
/ 

/ 

.IFDtF UC13 

/ 

/ EQUATES FUR UNlCHANNEL PRINTERS 
/ 

API5LT*56 
APIL VL B 2 

LPSl*APILVL*a0*706101 
SiOA»706001 
LlOK*/06006 


/AUTO-INCREMENT RtG 12 
/AUTO-INCREHENT REG 13 

/AUTO-INCREMENT REG 17 (USED TO SET REQUESTOR'S EV) 
/RE-ENTRANT REGISTER ONE 
/RE-ENTRANT REGISTER TWO 
/RE-ENTRANT REGISTER THREt 

/re-entrant register POUR 

/NODE AUDITION ROUTINE ENTRY POINT 

/NAME SCAN ROUTINE tNlRY POINT 

/LISTHEAD FOR POOL OF EMPTY NOOtS 

/LISTHEAD FOR PHYSICAL DEVICE LIST 

/ATTACH LUN & DEVICE ENTRY POINT 

/DETACH LUN & DEVICE ENTRY POINT 

/DE-QUEUE REQUEST ENTRY POINT 

/VERIFY & ADJUST ENTRY POINT 

/DECLARE I/O REQUEST COMPLETE ENTRY POINT 

/OETACH t EMPTY QUEUE ENTRY POINT 

/POSITION OF TRIGGER EVENT VARIABLE IN PDVL NODE 

/LUN FOR NOT-REAOY MESSAGE. (LUN 3 NOT USED SINCE MCR OUTPUT 

/COULD BE CHANNELED THRO LUN 3) 

/WORQ COUNT ADDRESS (NOT USED BY LP CONTROLLER) 

/CURRENT A0DRES5 REGISTER AOORESS 

/PRINT ONE LINE 

/PRINT MULTIPLE LINE 

/REAO LP STATUS 

/ENABLE LP INTERRUPTS 

/DISABLE LP INTERRUPTS 

/CLEAR LP DONE FLAG 

/CLEAR LP STATUS AND ERROR FLAGS 

/INHIBIT INTERRUPTS 

/ENABLE INTERRUPTS 
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LP.32 

PRC 

RSX 

LINE PRINTER HANDLER 


180 





CAP I*APILVL* 20+7061 04 


181 





/ 




182 






.IFU*0 

NOSPL 


183 





0tVL0D«4 


/DEVICE CODE IN PIREX IF SPOOLING ALLOWED 

184 






.fcNOL 



185 






ilFDtp 

NOSPL 


186 





DEVCOD>204 


/20B BIT FORBIDS SPOOLING 

187 






,ENOC 



188 






,ENDC 



189 






.DEC 



100 






.IFUNO 

LBZ 

/LINE BUFFER SIZE MAY BE CHANCED VIA 

191 





7 




192 





/ POP- 

IS LINE 

PRINTERS 

HAY HAVE MAX OF 132 CHAR'S IN IMAGE 

193 





/ 




194 





L»Z»134 



/conditional assembly# HOWEVER »lbz» 

195 





/ 




196 






„ENOC 


/MUST BE EVEN (FOR "GUARD WURU" PROTECTION TO WORK). 

197 






.OCT 



198 






.IFUNO 

UC15 


199 



*00000 

A 

Lt»ZX«U8Z/2*2-LB Z 


280 






. IFNZR 

LBZX 


281 






.END — LBZ MUST 

BE EVEN 

282 






.ENDt 



283 






.endl 



204 





/ 




285 



A0A000 

R 

LBF*. 




286 





/ 




207 





/ HANDLER INITIALIZATION 

208 





/ 




289 

***** 

0 

900027 

R 

START 

LAC 

LPDVL 

/SCAN PHYSICAL DEVICE LIST FOR NODE 

210 

*0**1 

9 

*6*623 

R 


DAC* 

(Rl) 

/FOR THIS DEVICE. 

211 

*0**9 

9 

900030 

R 


LAC 

lhnam 


212 

a***3 

9 

*60624 

R 


OAC* 

(H2) 


213 

*0**4 

P 

1 2*031 

R 


JMS* 

LSNAN 

/(Rl# R2, R6, X17, XR. & AC ARE ALTERED) 

214 








/NODE FOUND? 

215 

MAPS 

P 

*0*625 

R 


CAL 

(10) 

/NQ — EXIT 

216 

*0**6 

P 

*40561 

R 


OAC 

POVNA 

/5AVE PDVL NODE ADDRESS 

217 

0**07 

P 

723010 

A 


AAC 

♦D.TG 

/AND 

218 

00 A 1 A 


*4*562 

R 


OAC 

POVTA 

/TRIGGER event variable address address. 

219 

A0A11 


*0*566 

R 


CAL 

CCPB 

/CONNECT INTERRUPT LINE 

220 

00A 1 9 


90*555 

R 


LAC 

EV 

/CONNECT OKAY? 

221 

00013 


7411*0 

A 


SPA 



222 

00014 


***625 

R 


CAL 

(10) 

/NO — EXIT 

223 

00015 


90*032 

R 


LAC 

LTG 

/YES — SET TRIGGER EVENT VARIABLE ADDRESS 

224 

00A14 


*6*562 

R 


OAC* 

POVTA 

/IN PHYSICAL DEVICE NUDE 

225 

*001 7 


5**033 

R 


AND 

L70000 

/DETERMINE "XH-AOJ" 

226 

00*20 


74**31 

A 


TCA 



227 

00*21 


*4*552 

R 


OAC 

XAOJ 


226 





/ 




229 






.IFUNO 

UC15 


238 





/ 




231 

00022 

P 

7*6621 

A 


LPCO 


/clear lp controller 
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232 

233 

234 

235 

236 

237 
236 

239 

240 

241 

242 

243 

244 

245 

246 

247 
246 

249 

250 

251 

252 

253 

254 

255 

256 


LP.32 $RC 
00005 p 700641 


RSX LINE PRINTER HANDLER 

A LPC5 

/ 

.fcNDt 

/ 

.IFDtF UC15 


JUS 

LAC 

RTL 

SNA 

JMP 

CAL 

CAL 

CAL 


CLEAR 

EVltK 


WFTGR 

MSINIT 

KFMS 

C10 


/CLEAR OUT DEVICE, WAIT FOR COMPLETE 
/CHECK IF OUR DRIVER IN PIREX 
/PDP-11 SIGN BIT TO OURS 
/SKIP IF PROBLEM 
/NO PROBLEM, GO WAIT FOR WORK 
/PROBLEM, TYPE MESSAGE 
/WAIT FOR MESSAGE COMPLETION 
/TYPED, NOW EXIT 


/ 

WpM5 


MSINIT 


INITMS 

/ 


/WAIT FOR ERROR MESSAGE 

/TYPE ERROR MESSAGE 


20 
EV 

2/00 
EV 
LUN 
2 

INITMS 

004002? 0000001 .ASCII «*** NO LP IN PIREX"<15> 


.endc 


257 





/ 


258 

000*24 

e 

000207 

R 


JMP 

259 





/ 


260 

000 25 

P 

1 42000 

A 

HN AM 

.5IXBT 


00026 

p 

*00000 

A 



261 





/ 


262 





/ initialize: 

263 





/ 


264 

00027 

p 

000252 

A 

LPDVL 

PD VL 

265 

00030 

p 

i*00025 

R 

LHNAM 

HN AM 

266 

00031 

p 

fii0fll93 

A 

LSNAM 

SNAP 

267 

00032 

p 

*005613 

R 

LTG 

TG 

266 

00033 

p 

*70000 

A 

L/0000 

70000 

269 





/ 


270 





/ 


271 







272 





/ 


273 






. IFU"D 

274 





/ 


275 

00034 

p 


A 


.BLOCK 

276 





/ 


277 





/ aaaaa 

AAAAA A A, 

278 





/ aaaaa 

AAAAA A A, 

279 





/ 


280 

00906 

P 

*64015 

A 


064015 


281 

282 


/WAIT FOR TRIGGER 

/DEVICE NAME CHANDLER TASK NAME IS "LP. 


/PHYSICAL DEVICE Ll5T HEADER ADDR. 

/POINT TO HANDLER NAME 

/SEARCH FOR NAME MATCH ROUTINE ADDR. 

/ADDR OF OUT TRIGGGER 

/LITERAL FOR XR ADJUSTMENT 


/END OF IM1 IALIZAT10N CODE 


*AA THE ABUVE CODE IS UVER- a a aaaa aa aaaaaaaa aa 
am LAYED by OTS ASCII LINtS aaaaaaaaaaaa aaa a* 

/GUARO WORD CONTAINS A CARRIAGE HtTUKN (15) LINE 
/TERMINATOR FOR BOTH ASCII & IMAGt MODE LINES. ITS 
/PURPOSE IS TO STOP THE LP15 CONTROLLER If A LINE 
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LP.32 SRC 


RSX LINE PRINTER HANDLER 


/DOES NOT CONTAIN A VERTICAL CONTROL CHARACTER 
/REQUIRED TO STOP ThE CONTROLLER F ROM FETCHING 
/DAT* prom CORE. 

,ENDC 

, IFOtP UC15 

.bLOCK LHZ/2+2+LBF-. 


002P7 P *00564 « 


00? 101 P 140560 R 
00211 o 200561 R 


T FOR T*SK TO BE TRIGGERED BY ’ QUEUE I/O 1 DIRECTIVE OR BY • ABORT * 
SIGNAL That A REQUEST HAS BEEN QUEUED. 

CAL WFTCPB /WAIT FDR TRIGGER EVENT VARIABLE TO BE SET 

.1FUNO U Cl 5 

TASK HAS BEEN TRIGGERED — PICK A REQUEST FROM QUEUE CIF ANY) 

DZM TG /CLEAR TRIGGER 

LAC PQVNA /DEQUE A REQUEST 


4 ifdlf UC1S 

LAC TG 

DZM TG 

RTL 

spaiclaiiac 
JMP PU1 

SAD LPDON 

JMP OPDQNE 

SAD POST 

JMP WFTGR 


/FIND OUT UhO HOKE US UP 
/CLEAR FOR NEXT TIME AROUND 
/ABORT BIT TO AC0 

/SKIP IF NOT f SET UP 1 FOR COMPARtS 

/PICK OFF ABORT IN NORMAL MANNER 

/IRKEGARDLESS IF WAITING FOR INTERRUPT 

/MAS INTERRRUPT COME BACK 

/GO CHECK IT OUT 

/ARE WE WAITING FOR ONE 

/YES, 00 NOTHING NOW, INTERRUPT WILL WAKE 
/US LATER) Wt ALWAYS CHECK DEQUE BEFORE 
/RETUNING TO SLtEP AGAIN, 


& AC ARE ALTERED) 


322 





PU1 

LAC 

POVNA 

/OEGUE 

A REQUEST 

323 





/ 





324 






,tNOC 




326 





/ 





326 

99919 

0 

«60623 

R 


OAC* 

C«l) 



327 

00213 

p 

i 20626 

H 


JMS* 

CDQRQ) 

/ Ifil » 

R2 , R4 , R5, R6 , XR 

328 








/WAS A 

REQUEST FOUND? 

329 

00214 

o 

600207 

R 


JMP 

WFTGR 

/NO -- 

WAIT FOR TRIGGER 

33e 

00216 

p 

040557 

R 


OAC 

RN 

/YES - 

- SAV t ADDRESS OF i 

331 

00210 

0 

*40552 

R 


TAD 

X AO J 

/SETUP 

XR TO ACCESS NOOE 

332 

00217 

p 

721000 

A 


PAX 




333 





/ 





334 

00220 

e 

210005 

A 


LAC 

5 , X 

/FETCH 

CAL FUNCTION CODE 
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335 

0892! 

2 

500627 

R 



ANO 

(777) 



336 

00722 

P 

540630 

k 



SAD 

(017) 

/ABORT REQUEST? 


337 

0032* 

D 

600237 

R 



JMP 

ABORT 

/YE5 — ABORT TASK I/O 


338 

00224 

P 

540627 

R 



SAD 

(777) 

/NO — EXIT (DEASSI&NED) REQUEST? 


339 

00225 

P 

*00522 

R 



JMP 

OAEX 

/YES — DETACH ft tXIT 


348 

00226 

P 

540631 

n 



SAD 

(27 

/PRINT REQ? 


341 

00227 

P 

*00266 

R 



JMP 

PRINT 

/YUP 


342 

00230 

P 

540632 

R 



SAD 

(36 

/HINF COOE REQ? 


343 

00231 

P 

*00264 

R 



JMP 

HINF 



344 

00232 

P 

744020 

A 



CLL1RAR 


/SEARCH ATTACH DETACH IN COMMON 


345 

00233 

P 

540633 

N 



SAD 

(12 

/24/2 AND 26/2 ARE 12 


346 

00234 

P 

*00250 

R 



JMP 

ATTACH 

/GO DO EITHER 


347 

00235 

P 

777772 

A 

ilfunc 

LAW 

-6 

/NO — UNIMPLEMENTED FUNCTION -- SET 

348 

00236 

P 

*00373 

R 



JMP 

SEV 

/EVENT VARIABLE TO -6 


349 





/ 






350 





/ 

abort 

ALL I/O 

INITIATED BY THE INDICATED TASK. 


351 





/ 






352 

00237 

0 

250005 

A 

ABORT 

XUR 

5, X 

/ A0URT IS an illegal function for 

ALL TASKS 

353 

00242 

P 

750201 

A 



SZA1CLA1CMA 

/EXCEPT 'iORO', WHO SETS THE LUN*0 

. 

354 

00241 

P 

*0*235 

k 



JMP 

ILFUNC 



355 





/ 






356 







.iFDtP 

UC 1 5 



357 





/ 






358 





/ 

ip abort request is 

FOR THE PRE5ENT TASK, WHClH IS 


359 





/ 

PRESENTLY WAITING FOR A PRINT REQ, TELL PDP-11 tu cool 

IT. 

360 





/ 






361 







TAD 

POST 

/AC NOW 0 IF WAITING 


362 







TAO 

2*X 

/STL NODE PRESENT REQ. 


363 







SAD 

STLA 

/STC NODE PRINT RtQ 


364 







JMS 

CLEAR 

/ 1 ONLY 1 IF POST* 1 AND 2,X«STLAM 


365 





/ 






366 





/ 






367 







.enql 




368 





/ 






369 

00242 

D 

20*561 

k 



LAC 

PDVNA 

/PHYSICAL DEVICE NODE ADR 


370 

00243 

P 

1*60623 

K 



DAC* 

(Rl) 



371 

00244 

P 

200557 

R 



LAC 

RN 

/KEUUEST NODE AOR 


372 

00245 

P 

*60624 

R 



dac* 

(R2) 



373 

00246 

R 

1 20634 

R 



JMS* 

(OMTQ) 

/DETACH LON & DEVICE, IF NECESSARY 

, AND THEN 

374 









/EMPTY THE QUEUE OF ALL I/O REQUESTS MADE BY 

375 









/TASK BEING ABORTED. (Rl, R2, R3, 

R6 , R6, X10 

376 









/ X 1 1 , X 1 2 , XK & AC ARE ALTERED). 


377 

00247 

P 

*00260 

R 



JMP 

SP1 

/DONE, 


378 





/ 






379 





/ 






380 





/ 

attach td or detach fruh a task 


381 





/ 






382 

00250 

P 

750010 

A 

attach 

CLA1RAL 


/LINK TO AC 7 ATTACH-DETACH COMMON 

CODE 

383 

00251 

P 

721000 

A 



PAX 


/XR 0 FOR ATTACH, 1 FOR OfcTACH 


384 

00252 

P 

900561 

k 



LAC 

PDVNA 

/LUN AND DEVICE 


385 

0025* 

e 

960623 

R 



DAC* 

(Rl) 



366 

00254 

p 

200557 

R 



LAC 

RN 
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0025*5 P 060624 R 
00256 p 41*262 R 


"0257 P 600373 R 
00260 p 750030 A 


DAC* CR2) 

XCT ATTOET » X /(K3, R4, R5, H6, Xlk), XU, XR, & AC ARE ALTERED] 

/NAS LUN GET ACHED? 

JMp SEV /HQ — SET REQUESTOR * S EVENT VARIABLE TO -24 OR -203 

CLA J i AC /YES -- SET REQUESTOR’S EVENT VARIABLE TO *\ 

JMP SEV 


00262 R 120635 R 

00263 P 120636 R 


/ MONITOR SUBROUTINE CALLS FOR ATTACH-DETACH 
/ 

ATTOET JMS* (ALAO 

J MS* (DLAO 

/ 


00964 P 900637 R 
00265 P 600373 R 


/ RtTURN HANULER INFORMATION IN EVENT VARIABLE 
/ 

HINT LAC (10001 U 

JMP SEV 

/ 

/ PRINT LINE 


. IFUNQ UC15 


00966 P 91P007 A 

00967 p 040536 R 
00270 P 600640 R 

00971 p 640641 R 

00972 p 600275 R 
00273 c 777771 A 
90274 p 600373 R 


PRINT LAC 
DAC 


7 , X /SAVE MODE INDICATOR 

MI 

(7777763/IF DATA MODE IS OTHER THAN 2 (ASCII) 
(000002) /OR 3 (IMAGE) , SET REQUESTOR'S EVENT 
.♦3 /VARIABLE TO -7 


.IFDEF UC 15 


PRINT LAC 
DAC 


/REMEMBER NHO ISSUED PRINT 


/ SORRY ABOUT NEXT FEN J DATA MODE MUST BE 2 OR 31 
/ PUT IN MI A NOP FOR MODE 3 AND SKIP FOR MODE 2 


426 

LAW 

-2 

/ADD IN MODE TO GIVE 0 OR 1 

429 

TAD 

7 » X 


430 

raricll 


/U IN AC IF ONLY IF LEGAL DATA MODE 

431 

SNAJRAL 


/SKIP ILLEGAL 

432 

JMP 

.♦3 

/NOW AC 0 FOR ASCII, 1 FOR IMAGE 

433 

LAW 

-7 

/ tRKOR X IT 

434 

JMP 

SEV 

/FOR ILLEGAL DATA MODE 

435 

SHHA 


/ 1000 FOR IMAGE MOOE 

436 

XUR 

(SKP 

/SKP OR NOP AS RECUESTEQ 

437 

DAC 

MI 
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439 






,tNDG 



440 

00975 

D 

900557 

R 


LAC 

RN 

/VERIFY & ADJUST (NORMAL MODE) THE ADDRESS 

441 

00278 

e 

960624 

R 


OAC* 

CR2) 

/OF THE BEGINNING OF THE LINE (HEADER ADR), 

442 

00277 

e 

91001k) 

A 


LAC 

10, X 


443 

0P300 

9 

i?6*642 

R 


OAC* 

(R3) 


444 

00301 

n 

940563 

R 


OAC 

TEMPI 

/(SAVE UN-ADJUSTED BASE FOR SECOND JMS) 

445 

00302 

0 

750030 

A 


CLAUAC 



445 

00303 

c 

960643 

R 


OAC* 

(R4) 


447 

00304 

e 

1 20644 

R 


JMS* 

CVAJXJ 

/ (R3, R5, X K 1 & AC ARE ALTERED) 

448 








/IS BEGINNING address OKAY? 

449 

00303 

9 

800372 

R 


JMP 

ERR30 

/NO — SET REQUESTOR'S EVENT VARIABLE TO -30 

430 

00308 

0 

777777 

A 


LAW 

-1 

/YES — SETUP X 1 2 AS SOURCE INDEX TO MOVE LINE 

451 

00307 

9 

960642 

R 


TAD* 

(R3) 


452 

00310 

9 

*60633 

H 


OAC* 

C X 12) 


453 





/ 




454 

00311 

0 

920012 

A 


LAC* 

X 12 

/MOVE FIRST HtADEK LINE AND ESTABLISH LINE 

455 

00312 

P 

040000 

R 


OAC 

LBF 

/LENGTH IN WORDS. 

456 

00313 

C 

840510 

A 


LWS 

10 


457 

00314 

9 

800645 

R 


AND 

C/76) 


456 

00313 

P 

960645 

R 


OAC* 

CR4) 


459 





/ 




460 

00313 

P 

723776 

A 


AAC 

-2 

/IF LESS THAN TWO WORDS, SET REQUESTOR'S 

461 

00317 

O 

740100 

A 


SNA 


/EVENT VARIABLE TO -16, 

462 

00320 

P 

800323 

R 


JflP 

. + 3 


463 

00321 

P 

777762 

A 


LAW 

-16 


464 

00322 

P 

800373 

R 


JMP 

stv 


463 





/ 




466 

00323 

P 

900563 

R 


LAC 

tempi 

/VERIFY LINE SIZE (NORMAL MODE). R2 & R4 ARE 

487 

00324 

P 

96*642 

R 


OAC* 

CR3) 

/SETUP. 

468 

00325 

O 

120644 

R 


JMS* 

CVAJX) 

/ (R3 , R5, XR, 8 AL ARE ALTERED) 

469 








/IS LINE SIZE OKAY? 

470 

00328 

P 

600372 

R 


JflP 

ERR30 

/NO — SET REQUESTOR'S EVENT VARIABLE TO -30 

471 





/ 




472 





/ 

FOLLOWING SECTION FOR POP-15 PRINTERS 

473 





/ 




474 






,IPU"D 

UC15 


475 

00327 

9 

920643 

k 


LAC* 

(R4) 

/YES — SETUP 'TEMPI' AS WORU COUNT FOR MOVE 

476 

00330 

9 

74*031 

A 


TCA 



477 

00331 

D 

940563 

R 


OAC 

TEMPI 


478 

00332 

9 

723206 

A 


AAC 

+LBZ 


479 

00333 

9 

740100 

A 


SMA 



480 

00334 

P 

800337 

R 


JflP 

• + 3 


481 

00333 

P 

777572 

A 


LAW 

-LBZ 


462 

00338 

D 

940563 

R 


OAC 

TEMPI 


483 

00337 

O 

900646 

R 


LAC 

CLBF) 

/SETUP X 1 3 AS UtST INAT IUN INDEX FOR MOVE 

484 

00340 

P 

96064/ 

k 


OAC* 

C X 1 3 ) 


485 





/ 




466 

00341 

P 

92*012 

A 


LAC* 

X 12 

/move remainder OF LINE TO internal BUFFER 

487 

00342 

9 

*60013 

A 


DAC* 

X 1 3 


488 

00343 

9 

440563 

k 


ISZ 

TEMPI 


489 

00344 

P 

800341 

R 


JMP 

.-3 



490 / 
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491 

00345 

P 

750030 

A 


CL A 1 1 AC 

/line has been moved and is reaoy tq be 

492 

00344 

p 

1 00475 

R 


JMS 

SEVRN /PRINTED FROM INTERNAL BUFFER, INDICATE 

493 







/TO THE REQUESTOR THAT THt LINE HAS BEEN 

494 







/PRINTED BY SETTING HIS EVENT VARIABLE TO 

495 







/♦l. 

496 





/ 



497 

00347 

R 

900556 

R 


L*C 

Ml 

496 

00350 

P 

440650 

R 


SAD 

(3 

499 

00351 

P 

50«37S 

H 


JMP 

LFP5L 

506 

0033? 

P 

900002 

R 


LAC 

LBF + 2 

501 

00353 

P 

400651 

R 


AND 

(774000 

502 

00354 

P 

440652 

R 


SAD 

(50000 

503 

00355 

P 

600411 

R 


JMP 

PTL /YES — PRINT TWO LINES 

504 

00354 

P 

*40653 

R 


SAD 

(0600001/NO — FORM FEED 114)? 

505 

00357 

P 

60041 1 

k 


JMP 

PTL /YES — PRINT TWO LINtS 

506 

00340 

P 

440654 

R 


SAD 

( 1 04000) /NO — DOUBLE SPACE (21)? 

507 

0036! 

0 

60041 1 

R 


JMP 

PTL /YES — PRINT TWO LINES 

508 

0036? 

P 

440655 

R 


SAD 

( 100000) /NO — OVERPRINT (20)? 

509 

00363 

P 

741000 

A 


SKP 


510 

00364 

0 

600375 

H 


JMP 

LFPSL /NO — LINE FEED & PRINT SINGLE LINE 

511 

00365 

R 

900002 

R 


LAC 

LBF+2 /YES — CHANGE 20 TO 15 (NOP LINE) AND 

512 

00366 

P 

400656 

R 


ANO 

(003777) /PRINT TWO LINES 

513 

00367 

P 

940657 

ft 


XUR 

(064000) 

514 

00370 

P 

04*002 

R 


DAC 

LBF+2 

515 

00371 

P 

60041 1 

ft 


JMP 

PTL 

516 






.tNDC 


517 





/ 



518 





/ 

UC15 SECT ION 

TO TRANSFER BUFFER 

519 





/ 



520 






. jfoef 

UC1B 

521 





/ 



522 





/ 

EQUATES 


523 





/ 



524 





LINLEN«LBZ-2 

/characteers per line 

525 





/ 




526 

LAC* 

X 12 

/ 1 • MOVE 1 1 FROM HEADER TO POINT TO DATA 

527 

LAC 

(LBF+2 

/PUTTER POINTER In PUTP 

528 

0 AC 

PUTP 


529 

LAC* 

(H4 

/HERE IS WQRO COUNT OF BUFFtR 

530 

XCT 

MI 

/SKIP ASCII 

531 

SKP 


'/1MIAGE, SKIP TO SUBTRACT l 

532 

SKPICLLIRAR 

/ASCII, REDUCE TO PAIR COUNT, SKIP TO TC A 

533 

AAC 

-1 

/IMAGE, CORRECT FUR T+Q WORUS IN HEADER 

534 

CMAllAC 


/NEGATE FOR ISZ LOOP CONTROL. ISZ FIRST 

535 

0 AC 

TEMPI 


536 

LAC 

GETIN 

/INIT. CHAR GETTER 

537 

DAC 

GETSW 


538 

LAC 

PUTIN 

/INIT CHAR PUTTER 

539 

DAC 

PUTSW 


540 

DZM 

LBF 

/CLEAR CHARACTER COUNT 

541 

CLAlUHA 


/SET UP FIRST SWITCH 

542 

DAC 

FIRST 
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543 



OZM 


TCHAR 

/SO IT ISMT A CR IN CASE OF BLANK LlNEl 

544 



JMS 


RESETL 

/RESET LINE POINTERS 

545 

/ 






546 

/ 

MAIN 

LOOP 

TO 

transfer 

i CHAR'S TO HANDLER BUFFER 

547 

/ 






546 

MAIN 

JMS 


GETCH 

/CHARACTER UETTtR# LEAVES IT IN AC 

549 



0 AC 


TCHAR 

/SAVE IT 

550 



SNA 



/SKIP UNLESS NULL CHAR 

531 



JMP 


MAIN 

/NULL, IGNORE 

552 



AaC 


-40 

/SEPARATE McXT' CHAR'S FROM CONTROL CHAR'S 

553 



Snajspa 


/SKIP ON regular CHARS 

554 



JMP 


M5PEC 

/GO DO SPECIALS 

555 



SAD 


C 137 

/RUB OUT? 

556 



JMP 


MAIN 

/IGNORE 

557 



SAD 


C 135 

/ AL1 MODE 

556 



JMP 


UCLP04 

/ENU OF LINE ON AuT MODE 

559 



LAC 


blankc 

/DO ME HAVE PENDING BLANKS/TABS TO SENO 

560 

/ 






561 

/ 

NOTE 

THAT 

blankc has 

MINUS THE COUNT OF CONSECUTIVE BLANKS 

562 

/ 

TO SEND. 

a TAB IS CHANGED TO CONSECUTIVE BLANKS SINCE THE 

563 

/ 

POP-: 

11 HARDWARE DOESN'T KNOW AbOuT TABS, 

564 

/ 






563 



SMA1ULL 


/SKIP IF ANY AT ALL 

566 



JMP 


MAINC 

/NOPE, GO DO REGULAR CHAR. 

567 



TAD 


(200 

/CHtCK IF MORE THAN 127 

566 



smaicla 


/SKIP IF YES 

569 



JMP 


MAINO 

/NOPE, PUT OUT ONE COUNT OF BLANKS 

570 



TAD 


(200 

/FIRST DF TwU COUNTS, 128 

571 



JMS 


PUTCH 


572 



LAC 


(200 

/5ET UP BALANCE 

373 

maInD 

TAD 


blankc 

/BALANCE FOR TWO, ALL IF ONt only CASE 

374 



JMS 


PUTCH 


575 

mainc 

DZM 


BLANKC 

/RESET COUNTER 

376 



LAC 


TCHAR 

/original Char, 

577 



JMS 


PUTCH 

/PLACEO INTO BUF'FtR 

576 

MAIN* 

ISZ 


T ABC 

/increment tab counter 

579 



JMP 


MAINE 

/NOT OVERFLOW, GO CFiECK LINE COUNTER 

560 



LAW 


-10 

/RESET TAB COUNTER 

561 



DaC 


TABC 


562 

MAINE 

ISZ 


MAXC 

/HAVE ME RUN OUT OF LINE 

563 



JMP 


MAIN 

/NO 

564 



JMP 


UCLP04 

/YES, GO FINISH UP, RESET LINE POINTERS 

585 

/ 






586 

/ 

special characters 


587 

/ 






568 

MSPfcC 

SZA* 

llaicma 

/SKIP IF IT IS A BLANK 

589 



JMP 


MSPEC2 

/NOPE, CHECK FOR UTHEN THINGS 

590 



TAD 


blankc 

/AOD ONt TO Blank COUNTER (IS minus counterj 

591 



DAC 


blankc 


592 



JMP 


MAINK 

/JOIN LINE and tab CONTROL section 

593 

MSPfcC2 

LAC 


TCHAR 

/GET BACK ORIGINAL CHAR 

594 



SAD 


(11 

/IS IT A TAB 
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695 JMP NT Ab /YUP, GO DO IT 

596 SAU (15 /CARRIAGE RETURN 


597 


JMP 

UCLP04 

596 


SAD 

(20 

599 


JMP 

MCR 

600 


SAD 

(14 

601 


JMP 

M5PEC3 

602 


SAD 

(21 

603 


JMP 

M5PEC4 

604 

M5PEC5 

LAC 

(12 

605 

MSPEC3 

JMS 

PUTCH 

606 


JMP 

MAIN 

607 

MSPEC4 

LAC 

(12 

606 


JM$ 

PUTCH 

609 


JMP 

MSPEC5 

610 

NCR 

JMS 

RESETL 

611 


LAC 

(15 

612 


JMP 

MSPEC3 

613 

mtab 

LAC 

T ABC 

614 


TAD 

BLANKC 

615 


DAC 

BLANKC 

616 


LAC 

TABC 

617 


cmajaac 


616 


TAO 

MAXC 

619 


DAC 

MAXC 

620 


SMA 


621 


JMP 

UCLP04 

622 


LAW 

-10 

623 


DAC 

TABC 

624 


JMP 

MAIN 

625 

/ 



626 

/ 



627 

UCLP04 

CL A 1 1 AC 


626 


JMS 

SEVRN 

629 


LAC 

LBF 

630 


SZAlLLAtCMA 

631 


JMP 

RETRY 

632 


ISZ 

LBF 

633 


JM$ 

PUTCH 

634 

/ 



635 

retry 

CL A 1 1 AC 


636 


0 AC 

POST 

637 


DZH 

LPDON 

636 


LAC 

TCBP 

639 


JMS 

LPIU 

646 


JMP 

NFTGR 

641 

/ 



642 

OPOONE 

DZM 

POST 

643 


DZM 

LPDON 

644 


LAC 

EVU 

645 


AND 

(17777 

646 


SAD 

Cl 7700 


/END OF LINE ON CARRIAGE RETURN 

/fortran ots overprint, ou as CR 
/form FEED 

/JUST PUT IT OUT, FOR NON 
/FORTRAN DOUBLE SPACE 
/DO AS TWO 12 1 S 

/DEFAULT ON UNRECOGNIZED CONTROL CHAR. IS LINE FEED 
/PLACE IN BUFFER 
/GO DO NEXT 

/FIRST OF TWO 12*S FOR THE 21 

/GO DO THE SECOND 112 

/RESET LINE POINTERS 

/CARRIAGE RETURN 

/PUT CHAR AND LOOP 

/GET REMAINING COUNT FOR TAB 

/AND ADO TO CUMULATIVE BLANK COUNT 

/AND TO LINE CHECKER 


/SKIP IF SOME LINE LEFT 

/none left, finish up, reset pointers 
/RESET TAB COUNTER 

/next char 


/FROM USER BUFFER, SET EV 
/THIS RETURNS NOOt SETS EV ETC. 

/GET CHAR COUNT 

/SKIP ON ZENO COUNT, -1 IS A BLANK 1 

/GO 00 REGULAR 

/MAKE COUNT I FOR THE BLANK 

/PUTS A SINGLE BLANK OUT 

/SET POST, SAYS WE 1 RE WAITING 

/CLEAR INTERRUPT HAPPENED 
/POINTER FOR PIREX COMMAND STRING 
/SENO IT 

/WAIT FOR INTERRRUPT TO MAKE US UP 

/RETURNED FROM POP-U 
/CLEAR FLAGS 
/PDP-11 STATUS 
7 /KEEP THE POP-11 BITS 
1 /OUT OF POOL ERROR 


XI-4-19 



PAGE 14 

LP.32 SRC 

RSX LINt PRINTER HANDLER 


647 




JMP 

retry 

/YES, GO TRY AGAIN 

648 




RTL 

/POP- It 

SIGN BIT TO OUR SIGN BIT 

649 




SPA 1 RTR 


/REMAKE OHIG, COOt, SKIP IF UK 

650 




OAC 

IMPERR 

/STORE 'IMPOSSIBLE’ ERROR AND CONTINUE?!? 

651 




JMP 

PQ 

/GO LOOK FOR MORE WORK 

652 


/ 





653 


iHPtRR 

0 


/IMPOSSIBLE ERROR HOLDER 

654 


/ 





655 


✓ 


CHARACTER UNPACKING ROUTINE 

656 


/ 





657 


/ 

THIS 

ROUTINE 

* OWNS 1 

THE MO 

658 


/ 





659 


/ 





660 


/ 

CHARACTERS ARE OBTAINED MOM X12 POINTER. EACH CHAR 

661 


/ 

IS RETURNED 

RIGHT JUSTIFIED IN THE AC 

662 


/ 

TEMPI HAS A 

MINUS COUNT OF THE WORDS TO BE OBTAINED 

663 


/ 

MOM 

THE INPUT POINTER X 1 2 

664 


/ 





665 


GETCH 

0 



666 




XCT 

MI 

/SKIP IF IT IS ASCII 

667 




SKP 



668 




JMP* 

GETSW 

/GETSW IS POINTER TO COHKtCl ACTION ON QNTHt 

669 


/ 




/CORRECT ONfc OF THE FIVE POSSIBLE CHAR'S 

670 


/ 





671 


/ 

NON 

DO image 

MODE 


672 


/ 





673 




ISZ 

TEMPI 


674 




SKP 


/SKP ON NOT THRU YET 

675 




JMP 

UCLP04 

/UONE 

676 




LAC* 

X12 


677 




JMP 

GtTCM 

/FINISH UP IN COMMON 

678 


/ 





679 


GETSW 

0 


/POINTER TO CORRECT ACTION, INIT'EO FROM GET! 

680 


/ 




/FILLED BY JMS GETSW AFTER EACH CHAR 

681 


GETCH 

AND 

(177 

/COMMON FINISH UP, STRIP XTHA BITS 

682 




JMP* 

GETCH 

/OUT 

683 


/ 





684 


Gt TAN 

GET1 


/INIT GETSW TU POINT TO FIRST CHAR ACTION 

685 


/ 





686 


/ 

INDIVIOUL* CHARACTER 

ACTION 

687 


/ 





688 


GETU 

JM5 

GETSW 

/AFIEK 5TH CHAR, POINT BACK TO FIRST 

689 


/ 





690 


GET 1 

isz 

TEMPI 

/UUT OF PAIRS? 

691 




SKP 


/SKIP IF NOT 

692 




JMP 

UCLP04 

/ASCII, RESET LINE POINTERS ON RUNOUT 

693 




LAC* 

X 1 2 

/FIRST WORD OF PAIR 

694 




LMQ 


/INTO MO FOR SHIFTING 

695 




LLS 

7 


696 




JMS 

GETSW 

/DONE, LEAVt POINTER FOR SECOND CHAR 

697 


Gt T2 

LLS 

7 

/SECOND CHAR 

696 




JMS 

GETSW 

/LEAVING POINTER FOR THIRD 
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699 

GET3 

LLS 

4 

/THE HALF-AND-HALF CHAR 

790 



DAC 

GETSW 

/VERY TEMPORARY 

701 



LAC* 

X 1 2 

/CAN 1 T END IN MIDDLE OF PAIR 

702 



LMQ 


/SECOND WORD TO SMlPTtR 

703 



LAC 

GETSW 

/BRING BACK FIRST 

704 



LLS 

3 

/COMPLETE CHAR 

709 



jns 

GETSW 

/LEAVING POINTER TO FOURTH ACTION 

706 

GET 4 

LLS 

7 


707 



JHS 

GETSW 

/LEAVING FOR 5> 

706 

GETS 

LLS 

7 


709 



JMP 

GETQ 

/BACK TO TOP FOR POINTER TO 1 

710 

/ 





711 

/ 





712 

/ 





713 

/ 

CHARACTER 

PUTTER FOR 

PDP-11 

714 

/ 





715 

/ 

TWO 

CHAR • 

S PER WORD 

FORMAT* FIRST CHAR IS RIGHT JUSTIFIED, SECOND 

716 

/ 

IS 

PLACED 

IMMEDIATELY ABOVE FIRST, LEAVING TOP TWO BITS OF WORD 

717 

/ 

UNUSED, char IS OELEVEHD TO us IN AC. INIT PUT SW BY DAC'ING CONTENTS 

718 

/ 

OF 

PUTIN 

INTO IT. ROUTINE COUNTS THE OUTPUT CHARS IN PUTCH 

719 

/ 





720 

PuTCH 

0 



721 



AND 

(377 

/EIGHT BITS REMAIN 

722 



ISZ 

FIRST 

/DON'T SEND A LEADING LF, PDP-11 PUTS ONE IN 

723 



JMP 

.♦3 

/NOT FIRST TIME, SKIP TEST 

724 



SAD 

(12 

/IS IT A LINE FEEU 

725 



JMP* 

PUTCH 

/YUP, DO NOTHING 

726 



ISZ 

LBF 

/COUNT AN OUTPUT CHAR 

727 



JMP* 

PUTSW 

/GO DO FIRST UR SECOND CHAR 

728 

PUT5N 

0 


/INIT'ED AS PUT 1 « FILLED LATER BY JMS PUTSW 

729 



JMP* 

PUTCH 

/DONE, RETURN 

730 

/ 





731 

PUTIN 

PUT 1 


/START AT FIRST ChAR 

732 

/ 





733 

PUTQ 

JM3 

PUTSW 

/LEAVE POINTER FOR FIRST AFTER SECOND 

734 

PUT 1 

DAC* 

PUTP 

/FIRST CHARACTER ACTION, PLACE RIGHT JUSTIFIED 

735 



JMS 

PUTSW 

/LEAVING POINTER FOR SECOND 

736 

/ 





737 

PUT2 

CLL1SWHA 

/PUT CHAR IN RIGHT PLACE 

738 



RAR 



739 



XUR* 

PUTP 

/PUT HALVES TUGETHEk 

740 



DAC* 

PUTP 

/BOTH IN BUFFER 

741 



ISZ 

PUTP 

/MOVE POINTER 

742 



LAC 

PUTP 

/OUT OF BUFFER CHECH IF POINTER POINTS TO SELF 

743 



SAD 

(PUTP 


744 



JMP 

UCLP04 

/OUT OF SPACE 1 

745 



JMP 

PUTQ 

/GO TtLL PUTSW THAT PUT1 IS NEXST 

746 

/ 





747 

/ 

RESETL 



748 

/ 





749 

/ 

THIS ROUTINE RESETS THE POINTERS TO THE BEGINNING OF A LINE 

750 

/ 
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751 

RfcStTL 

0 



752 


LAN 

-10 

/e SPACES PER TAB 

753 


OAC 

T ABC 

/THE POP-11 DOESN’T KNOW ABOUT TABS 

754 


DZM 

blankc 

/ZERO COUNT OF CONStCUTlVE BLANKS 

755 


LAC 

LINLIM 

/NUMBER OF CHARACTERS PER LINE 

796 


OAC 

HAXC 


757 


JMP + 

RESETL 


796 

/ 




799 

/ 




760 

FIRST 

0 


/INiT TO -1 TO SHOW FIRST CHAR. 

761 

LINLIM 

-linl&n 


/COUNTER FOR MAX CHAR'S PER LINE 

762 

MAXL 

0 


/DO ISZ ON LINLIM COUNT HtRt 

763 

tchar 

0 


/TEMPORARY FOR HOLDING CHAR 

764 

0LANKC 

0 


/COUNT OF CONSECUTIVE BLANKS 

765 

TaBC 

0 


/MODULO 8 COUNT WHERE NEXT TAB GOES 

766 

STLA 

0 


/REMEMBER WHO IS DOING PRINT 

767 

/ 



/ASCII SKIPS, IMAGE DOESN'T 

768 

/ 




769 

/ 




770 

/ TCB 

FOR SENDING BUFFfcR TO POP-11 

771 

✓ 




772 

TLB 

API5LT*40«J+APILVL /TELL PDP-11 WHERt TO StNO INTERRUPT 

773 


OtVCUD 


/PIREX DEVICE CODE 

774 

Evil 

0 


/EVENT VARAIBCE FROM PIREX 

775 

STADO 

0 



776 


LbF 


/PERMANENT BUFFER AODH 

777 

LPIUT 

0 


/NOT USED 

778 

STATUS 

0 


/NOT UStD 

779 

/ 




700 

/ TCB 

FOR SlOP 

I/O TO 

line printer driver 

701 

/ 




702 

/ 




703 

TCBK 

0 



704 


DEVCUOE SI 77* 400+200 

785 

EV11K 

0 



786 

/ 




707 

/ POINTERS TO 

TCB'S 


780 

/ 




789 

TCBP 

TCb 



790 

TCBKP 

TCBK 



791 

/ 




792 

/ LOCATIONS FOR UC15 1 

VERSION 

793 

/ 




794 

LPOON 

0 


/I WHEN OPERATIONS F IN ISHED, OTHERWISE 0 

795 

POST 

0 


/I WHEN WAITING FUR INTERRUPT * OTHERWISE 0 

796 

/ 




797 

/ 




790 

/ 




799 

LPIU 

0 


/SUBROUTINE TO SEND TO PDP-11 

800 


DZH 

EV11 

/CLEAR RETURN VARIABLE 

801 


OZM 

EV11K 

/AND THE OTHER ONE, IN CASE IT USED 

802 


SIO A 


/SKIP IF PDP-11 CAN TAKt IT 
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IP. 32 

ARC 

RSX 

LINt PRINTER HANDLER 


803 






JMP 

.-1 

/NOPE 

804 






lior 


/AC P0INT5 TO INSTRUCTION LIST 

805 






JMP* 

LP IU 

/THAT'S ALL 

806 





/ 




807 





clean 

0 


/CLEAR POST, LPDON, PIREX 

808 






DZM 

POST 


809 






QZM 

LPDON 


810 






LAC 

TCBKP 

/TELL PIREX TO CLEAR 

811 






JMS 

LPIU 

/PIKEX REU SENDER 

812 






CAL 

WFCLER 

/WAIT FOR PIREX COMPLETION 

813 






JMP* 

CLEAR 


814 





/ 




819 





/ 




816 





wfcler 

20 


/WAIT FOR PIREX TU SET EV FUR CLEAR DEVICE 

817 






EV 1 1 6 



818 





/ 




819 





/ 




820 






.ENOC 



821 

00372 

e 

777750 

A 

EHR30 

LAW 

-30 


822 





/ 




823 





/ COMMON TERMINATION 

OF non-printing requests 

824 





/ 




825 

00373 

p 

t 00475 

R 

SEV 

JMS 

SEVKN 

/SET EVENT VARIABLE, DECALNE SIGNIFICANT 

826 

00374 

p 

600211 

R 


JMP 

PU 

/EVENT, RETURN NODE, PICK NEXT REU. 

827 





/ 




828 





/ 




829 





✓ SECTION EUR 

PDP-15 

PRINTERS 

830 





/ 




831 






.ifund 

UC 1 5 


832 





/ 




833 





/ 




834 





/ LINE 

FEED & 1 

PRINT SINGLE LINE 

836 





7 




836 

00375 

p 

200556 

R 

LPPSL 

LAC 

MI 

/SET MODE INDICATOR IN HEADER (UNPACKING 

837 

80378 

p 

0140000 

R 


DAC 

L8F+0 

/HARDWARE IGNORES HIGH ORDER HEADER HALFWORD 

838 








/WHEN PRINTING IN SINGLE LINE MODE). 

839 





/ 




840 

00377 

p 

200660 

R 


LAC 

(LFL) 

/PRINT LINEFEED LINE 

841 

00400 

p 

1 00417 

R 


JN3 

PRNT 


842 

00401 

P 

706541 

A 


LPP1 



843 





/ 




844 

00402 

p 

200646 

R 


LAC 

CLBF) 

/PRINT REQUESTEU LINE 

845 

00403 

P 

100417 

R 


JMS 

PRNT 


846 

00404 

p 

706541 

A 


LPP1 



847 





/ 




848 

00405 

p 

000211 

R 


JMP 

PQ 

/PICK NEXT REQUEST 

849 





/ 




850 

00406 

p 

002003 

A 

LFL 

002003 

/LINEFEEO LINE 

851 

00407 

p 

*02000 

A 


000000 



852 

00410 

p 

*000 1 2 

A 


000012 



853 





/ 




854 





/ PRINT 

TWO LINES 
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PAGE 

895 

856 

857 

858 

859 
800 
861 
862 
863 
664 
865 
666 
807 
668 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
861 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 
896 
899 
906 

901 

902 

903 

904 

905 

906 


18 LP.32 SRC 


/ 


0041! 

0 

500661 

R 

ptl 

LAC 

(002982) /ALTER HEADER TO INDICATE T*D 

0041 2 

D 

240000 

h 

1 

DAC 

LBF + 0 

/ASCII "LINES", 

00413 

D 

000646 

ft 

/ 

L*C 

CLBF) 

/PRINT BOTH "LINES" 

00414 

P 

100417 

R 


jns 

prnt 


0041 6 

R 

706521 

A 


lppm 



00416 

P 

6002 1 1 

ft 

/ 

JMP 

PQ 

/PICK NEXT REQUEST 





✓ 

/ PKNT ■ 

— subroutine to 

PRINT A LINE. THE LINE BUFFER ADURES5 IS 





/ IN AC 

, and 

THE IOT TO 

PRINT IS IN THE LOCATION FOLLOWING THE JMS, 

00417 

P 

200000 

A 

PKNT 

0 



00420 

D 

1 40452 

ft 


DZM 

PRNTEF 

/CLEAR ERROR FLAG 

00421 

C 

723 777 

A 


AAC 

-1 

/DETERMINE & SAVE CURRENT ADDRESS 

00422 

P 

240554 

R 


DAC 

CABF 


00423 

P 

260662 

ft 

PKNT1 

DAC* 

(CAA) 

/SET CURRENT ADDRESS 

00424 

P 

1 60663 

R 


DZM* 

(MCA) 

/PREVENT wDKO COUNT OVERFLOW 

00423 

P 

420417 

ft 


XCT* 

PRNT 

/EXECUTE PRINT IOT, CLEAR EVENT VARIABLE, 

00426 

P 

1 4 0553 

R 


QZM 

EV 

/ENABLE LP INTERRUPT, ANO WAIT FOR THE EVENT 

00427 

P 

706544 

A 


LPEI 


/VARIABLE TO BE SET NUN-ZERU BY THE INTERRUPT 

0043" 

P 

100453 

R 


J MS 

WFAB 

/SERVICE ROUTINE. 

00431 

R 

900555 

R 


LAC 

EV 

/INTERRUPT HAS OCCURRED — EXAMINE PRINTER STATUS 

00432 

P 

500664 

R 


ANO 

(200000) 

/ALARM tRR OR LP OFF LINE? 

00433 

P 

741208 

A 


SNA 



00434 

P 

600451* 

R 


JMP 

PRNTXT 

/NO — EXIT PRNT SUBROUTINE 

00436 

P 

900452 

ft 


LAC 

PRNTEF 

/NEW ERROR? 

00436 

P 

740200 

A 


SZA 



00437 

e 

600444 

R 


JMP 

PNNT2 

/NO — DELAY AND RETRY 

00442 

p 

*00604 

R 


CAL 

TEMCPb 

/YES — TYPE ERR MESSAGE 

0044! 

p 

i 00453 

ft 


JMS 

WFAB 


00442 

p 

750030 

A 


CL A i 

iAC 


00443 

p 

*40452 

R 


OAC 

PRNTEF 


00444 

P 

*0*576 

ft 

PRN1 2 

CAL 

MTCP8 

/delay 

00445 

R 

100453 

ft 


JMS 

WFAB 


00446 

P 

900554 

ft 


LAC 

CABF 

/retry 

00447 

P 

600423 

ft 


JMP 

PRNT l 


00450 

P 

4 40417 

H 

PKNT XT 

I5Z 

PRNT 

/EXIT PRNT SUBROUTINE 

0045! 

P 

*20417 

ft 


JMP* 

PRNT 


00452 

P 

*00008 

A 

PRNTEF 

0 




/ 


/ 

/ WMb -- SUBROUTINE TO WAIT FOR EVENT VARIABLE TU Bt SET ANO THEN TO 

/ check the trigger event variable to see ip an abort request should 
/ be processed. 
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PACE 19 

UP. 32 

ARC 

RSX 

LINE 

PRINTER HANDLER 


907 





/ 





908 

00453 

e 

000000 

A 

WF AB 

0 



909 

80454 

P 

i?00602 

R 



CAL 

WFECPB 

/WA1TFOR EV TO BE SET, 

910 

00455 

P 

900560 

R 



LAC 

TG 

/IS BIT 2 Oh THE TRIGGER SET? 

911 

00456 

p 

742ei0 

A 



RTL 



912 

00457 

P 

740100 

A 



ShA 



913 

0046B 

p 

622453 

H 



JMP* 

WF AB 

/NO — RETURN 

914 





/ 





915 





/ 

Ot- 

QUEUE THE 

abort request. 

916 





/ 





917 

00461 

R 

14»560 

R 



DZM 

TG 


918 

00462 

P 

900561 

R 



LAC 

POVNA 

/PHYSICAL DEVICE NODE ADR 

919 

00463 

0 

t»60623 

R 



DAC* 

(R 1 ) 


920 

00464 

P 

120626 

R 



JMS* 

(DQRQJ 

/(Rl, R2, R4, R5, XR & AC ARE ALTERED), 

921 









/NAS A REQUEST FOUNO? 

922 

00465 

R 

620453 

R 



JMP* 

WF AH 

/NO — SHOULD NtVER RETURN HERE, 

923 

00466 

P 

040557 

R 



DAC 

RN 

/YES — SAVE NOOE ADR 

924 

00467 

P 

060624 

R 



OaC* 

(R2) 


925 

00470 

P 

900561 

ft 



LAC 

POVNA 

/PHYSICAL DEVICE NODE ADR 

926 

0047J 

P 

960623 

R 



DAC* 

(Rl) 


927 

00472 

0 

1 20634 

R 



JMS* 

COMTQ) 

/DETACH LUN & DEVICE, IF NECESSARY, AND THEN 

928 









/EMPTY THE REQUEST QUEUE OF ALL I/O REQUESTS 

929 









/MAOE BY THE TASK BEING ABORTED, (RL, R2, R3, 

930 









/R5, R6, X10, Xll, X 12 , XK & AC ARE ALTERtD), 

931 

00473 

P 

1 00475 

R 



JMS 

SEVRN 

/SET REQUESTER ’ S C’lORD'S') EV, DECRE- 

932 









/ment the i/o pending count, and return node to puql. 

933 

00474 

R 

622433 

R 



JMP* 

WF AB 


934 





/ 





935 







a ENOL 



936 





/ 





937 





/ 

SEVRN — SUBROUTINE 

TO SET THE REQUESTOR'S EVENT VARIABLE TO 

938 





t 

THE 

quantity 

IN AC, 

DECLARE A SIGNIFICANT EVENT, DECREMENT I/O 

939 





/ 

TRANSFERS PENDING COUNT (NORMAL Moot) , ANO RETURN REQUEST NODE 

940 





/ 

TO 

THE POOL. 



941 





/ 





942 

00475 

P 

000 00 0 

A 

StVKN 

0 



943 

00476 

P 

722020 

A 



PAL 


/SAVE EV VALUE 

944 

00477 

R 

900557 

ft 



LAC 

RN 

/REQUEST NODE ADR 

945 

0030CT 

P 

340552 

ft 



tad 

X AO J 


946 

00501 

P 

721000 

A 



pax 



947 

00502 

P 

910006 

A 



LAC 

6, X 

/REQUESTER’S EV 

948 

00503 

P 

74J200 

A 



SNA 



949 

00504 

P 

60051 1 

ft 



JMP 

NOSET 

/NONE SPECIFIED 

950 

00505 

0 

340552 

R 



tao 

XAOJ 


951 

00506 

R 

721000 

A 



PAX 



952 

00507 

D 

730000 

A 



PLA 



953 

00512 

P 

050000 

A 



OAC 

0iX 

/SET EV 

954 





/ 





955 

0051J 

P 

900557 

R 

NOSET 

LAC 

RN 

/DECLARE I/O REQUEST COMPLETED (DECREMENT 

956 

005J2 

R 

<*60624 

R 



OAC* 

(R2) 

/TRANSFERS PENDING COUNT), 

957 

00513 

P 

120665 

R 



JMS* 

( IOCD) 

/ (R5 , XR, & AC ARE ALTERED) 

958 





/ 






XI-4-25 



PACE. Sex 

LP.32 

ARC 

RSX 

LINE PRINTER HANDLER 



999 

00514 

p 

900666 

R 



LAC 

(401000J/DECLARE A SIGNIFICANT EVENT 


960 

00616 

p 

70550 A 

A 



ISA 




961 





/ 






962 

0061 6 

Q 

?00 667 

R 



LAC 

tPOOL) 

/RETURN REQUEST NODE TO POOL 


963 

00617 

P 

CT60623 

R 



DAC* 

(Rl) 



964 









/ (R2 IS ALREADY SETUP) 


965 

00520 

o 

i 20670 

R 



JMS* 

(N ADD) 



966 





/ 






967 

00521 

p 

620475 

R 



JMP* 

SEVRN 

/EXIT 'SEVRN' SUBROUTINE 


966 





/ 






969 





/ 

EXIT 

REQUEST 

(FROM TASK "...REA") 


970 





/ 






971 

0052? 

P 

?0"667 

R 

DAEX 

LAC 

(POOL) 

/RETURN REQUEST NUOE TO POOL 


972 

"0526 

P 

060623 

R 



DAC* 

(Rl) 



973 

00524 

P 

?00557 

R 



LAC 

RN 



974 

00525 

P 

"60624 

R 



DAC* 

(R2) 



975 

00620 

P 

1 20670 

R 



JMS* 

(NADD) 



976 





/ 






977 





/ 

PDP15 TURN OFF LINE 

PRINTER 


976 





/ 






979 







, IF UNO 

UC1S 



960 

00527 

P 

706561 

A 



LPOI 


/disable lp interrupts 


981 

0053" 

P 

W00572 

R 



CAL 

OCPB 

/DIS3CCC0NNECT 


982 







.ENOt 




983 





/ 






984 





/ 

PDP- 

11 TU«n 

OFF LINE 

PRINTER 


989 





/ 






986 







.IFDtF 

UC15 



987 





/ 






986 







JMS 

CLEAR 

/CLEAR OUT DEVICE IN PIREX 


989 







ISZ 

CCP6 

/NAKE CONNECT A DISCONNECT 


990 







CAL 

CCPB 

/ANO DISCONNECT 


991 





/ 






992 







.tNDt 




993 





/ 






994 





/ 






999 

00531 

P 

440562 

R 



ISZ 

PDVTA 

/CLEAR ASSIGN INHIBIT FLAG IN 

PDVL NODE 

996 

0053? 

P 

705522 

A 



• INH 




997 

00533 

D 

160562 

ft 



DZM* 

PDVTA 



996 

00534 

P 

705521 

A 



,ENB 




999 

00635 

P 

"20626 

R 



CAL 

(10) 

/EXIT 


1000 





/ 






1001 





/ 

interrupt service routine 


1002 





/ 






1003 

00535 

P 

*0"000 

A 

INT 

0 


/INTERRUPT tNTRY POINT 


1004 

00537 

P 

707762 

A 



DBA 


/ENTER INDEX (PAGt ) MODE 


1009 

0054" 

P 

"4"553 

ft 



DAC 

ACBF 

/SAVE AC 


1606 





/ 






1007 





/ 

POP- 

15 LINE 

PRINTER 

INTERRUPT SECTION 


1006 





/ 






1009 







.IFUNO 

UC15 



1010 

00541 

P 

706552 

A 



LPRS 


/HEAD STATUS ANO SET IN EVENT 

VARIABLE 
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LP.32 

SRC 

R5X 

LINE PRINTER HANDLER 


1011 

0054? 

P 

040555 

R 


DAC 

EV 


1012 

00543 

0 

706641 

A 


LPCS 

/CLEAR STATUS, ERR FLAG, & DONE FLAG 

1013 

00544 

0 

706621 

A 


LPCO 



1014 





/ 




1015 






.ENDC 



1016 





/ 




1017 





/ PDF" 

11 LINE 

PRINTER INTERRUPT SECTION 


1016 





/ 




1019 






.ifdef 

UC15 


1020 





/ 




1021 






CAPI 

/CLEAR OUT FLAG SET BY PlKfcX 


1022 






LAC 

POST /WANTED OR NOT 


1023 






SNA 

/SKIP IF YES 


1024 






JMP 

INTI 1 /NOT WANTED, JUST GET OUT 


1025 






DAC 

TG 


1026 






DAC 

LPOON 


1027 





/ 




1026 






,ENDt 



102O 





/ 




1030 

00545 

P 

900666 

R 


LAC 

(401000} /DECLARE A SIGNIFICANT EVENT 


1031 

00346 

P 

705504 

A 


ISA 



1032 

00547 

P 

900553 

R 

INT11 

LAC 

ACBF /RESTORE AC 


1033 

00550 

P 

703344 

A 


DBR 

/RETURN TO INTERRUPTED PROGRAM 

1034 

0055J 

9 

620536 

R 


JHP* 

INT 


1035 





/ 




1036 

0055? 

P 

00000® 

A 

X AD J 

0 

/XR ADJUST CONSTANT TO SUBTRACT PAGE 

BITS 

1037 

00553 

P 

000000 

A 

AC8F 

0 

/AC BUFFER 


1036 

00554 

P 

000000 

A 

CABF 

0 

/INITIAL CURRENT ADDRESS BUFFER 


1030 

00555 

9 

*00000 

k 

EV 

0 

/EVENT VARIABLE 


1040 

00550 

P 

*00000 

k 

MX 

0 

/MODE INDICATOR 


1041 

00557 

P 

900000 

k 

RN 

0 

/ADDRESS OF REQUEST NODE PICKED FROM 

QUEUE 

1042 

0056m 

P 

*00006 

k 

TG 

0 

/TRIGGER EVENT VARIABLE 


1043 





/ 




1044 

00561 

D 

*00000 

k 

POVNA 

0 

/PHYSICAL DEVICE NOOE ADDRESS 


1045 

00562 

0 

000000 

k 

PDVTA 

0 

/ADDRESS OF ADR OF TRIGGER EV IN PHY 

DEV NOOE 

1046 





/ 




1047 

00563 

P 

900000 

A 

TEMPI 

0 



1046 





/ 




1040 

00564 

P 

900020 

A 

WFTCPB 

20 

/WAIT FOR TRIGGER 


1050 

00565 


*00560 

R 


TG 



1051 

00566 


*0001 1 

A 

CCPB 

11 

/CONNECT CPU 


1052 

00367 


900555 

R 


EV 



1053 

00370 


90001 6 

A 


16 



1054 

00371 


*00536 

R 


INT 



1055 





/ 




1056 






.IFUNO 

UC1 5 


1057 





/ 




1056 





/ LEAVE SOME | 

DUT FOR UC15 TO SAVE SPACE 


1050 





/ 




1060 

00572 

R 

*00012 

A 

DCPB 

12 

/DISCONNECT CPB 


1061 

00573 

P 

*00000 

A 


0 



1062 

00374 

P 

*0*016 

A 


16 
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LP.32 

ARC 

R5X 

LINt PRINTER HANDLER 


1063 

00575 

P 

*00536 

R 



INT 



1064 






/ 




1065 

00576 

P 

000013 

A 


MTCPB 

13 

/HARK 

TIME CPB 

1066 

00577 

D 

000555 

R 



EV 



1067 

0060P 

P 

000012 

A 



12 



1066 

00601 

C 

000001 

A 



1 



1069 






/ 




1076 






/ 




1071 

0060 ? 

P 

000020 

A 


WFECPB 

20 

/WAIT 

FOR EVENT VARIABLE CPB 

1072 

00603 

P 

00*555 

R 



EV 



1073 






7 




1074 

00604 

c 

*02700 

A 


TtMtPB 

2700 

/TYPE 

ERR MESSAGE 

1075 

00605 

o 

*00555 

R 



EV 



1076 

00606 

p 

P 00002 

A 



LUN 



1077 

00607 

p 

000002 

A 



2 



1078 

00610 

p 

000611 

k 



ERKMfcS 



1079 






/ 




1080 

00611 

p 

004002 

A 


ERRHES 

004002; 

0000007 .ASCII "*** LP NOT READY K <16> 


0061 ? 

p 

0 0 00 00 

A 







00613 

D 

?51245 

A 







00614 

P 

?2023e 

A 







00615 

P 

501011 

A 







00616 

P 

647650 

A 







00617 

P 

502450 

A 







00620 

P 

54*610 

A 







00621 

P 

644320 

A 







006 ?? 

D 

*00000 

A 






1081 






/ 




1082 







.ENDL 



1063 






7 




1064 






/ 




1085 



*00000 

R 



.END 

START 



00623 

e 

* 0*101 

A 

*L 






00624 

p 

50*102 

A 

*L 






00625 

e 

*00010 

A 

*L 






00626 

p 

1*00337 

A 

*L 






00627 

p 

*00777 

A 

*L 






00630 

P 

000017 

A 

*1 






00631 

P 

P00027 

A 

*L 






0063? 

c 

i*0*036 

A 

*L 






60633 

p 

*00012 

A 

*L 






00634 

0 

*0*361 

A 

*L 






00635 

p 

*0*325 

A 

*L 






00636 

p 

*00332 

A 

*1 






00637 

p 

10001 1 

A 

*L 






00640 

p 

777776 

A 

*L 






00641 

p 

*00002 

A 

*L 






0064? 

D 

*0*103 

A 

*L 






00643 

P 

*00104 

A 

*L 






00644 

O 

*00342 

A 

*L 






00645 

P 

*00776 

A 

*L 






00646 

P 

*00000 

R 

*L 
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LP.32 SRC R3X LINE PRINTER HANDLER 

00647 P 91001013 A *L 

00650 P *000*3 A *L 

00651 P 7 74000 * *L 
00S3S R P5P000 A *L 

00653 P *6*000 A *L 

00654 P 10400B A *L 

00655 P 100000 * **■ 

00656 P 003777 A *L 

00657 p *64000 A *L 
0066* P *00406 R *L 
0066J P 00P002 A *L 
0066? P *00035 A *L 

00663 P *0003 A A *1 

00664 P P00000 * *L 

00665 P 00*3*5 A *L 

00666 R 401000 A *L 

00667 P *002A0 A *L 
00670 » *0*107 A *L 

fll7E«0067l NO ERROR LINES 
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PAGE 

24 IP. 

32 CROSS REFERENCE 






ABORT 

00237 

33T 

352* 







ACBF 

00553 

1006 

1032 

1037* 






ALAD 

000325 

14Q* 

396 







ATTACH 

0025a 

346 

382* 







ATTDET 

00262 

38* 

396* 







CAA 

P00035 

1 50* 

874 







CABF 

00554 

070 

895 

1038* 






CCPB 

00565 

210 

989 

990 

1051* 





DAEX 

00522 

330 

971* 







DCPB 

00572 

08 1 

1 060* 







DLAD 

000337 

1 5«* 

397 







DMTO 

000361 

154* 

373 

927 






OGRO 

000337 

1 5i * 

32? 

920 






D.TG 

00001« 

1 5** 

21? 







ERRMES 

00611 

ta7* 

1 080* 







ERR3P 

00372 

440 

470 

821* 






EV 

00555 

22a 

246 

250 

877 

881 

1011 

1039* 

1052 



1060 

1072 

1075 






HINF 

00264 

34* 

402* 







HNAH 

00025 

2 6a* 

265 







ILFUNC 

00235 

347* 

354 







INT 

00536 

1 00** 

1034 

1054 

1063 





inth 

00547 

1024 

1032* 







IOCD 

000345 

15** 

957 







LBF 

000000 

200* 

275 

289 

455 

483 

500 

511 

514 



527 

540 

629 

632 

726 

77 6 

837 

844 



057 

659 







IBZ 

000206 

19* 

194* 

199 

199 

275 

289 

4/8 

481 



524 








LBZX 

00000a 

1 90* 

200 







lfl 

00406 

84* 

850* 







lfpsl 

00375 

49c 

51® 

836* 






LHNAM 

00030 

211 

285* 







LPCD 

706621 

164* 

231 

1013 






LPCS 

706641 

5 6«* 

232 

1012 






LPDI 

706561 

164* 

980 







LPDVU 

00027 

200 

264* 







LPEI 

706544 

1 6** 

876 







LPPH 

706521 

I61 * 

861 







LPPl 

706541 

I60* 

842 

846 






LPRS 

70655? 

167* 

1010 







USNAM 

00031 

71* 

266* 







LTG 

00032 

72* 

267* 







UUN 

200007 

1 50* 

251 

1076 






L70020 

00033 

724 

268* 







MI 

00550 

411 

437 

497 

530 

666 

636 

1040* 


MTCPB 

00576 

89* 

1 065* 







NAOD 

000107 

1 40* 

965 

975 






NOSET 

00511 

940 

955* 







POVL 

000252 

14** 

264 







POVNA 

00561 

21* 

304 

322 

369 

384 

918 

925 

1 044< 

PDVTA 

00562 

21* 

22* 

995 

997 

1045* 




POOL 

000240 

1 47* 

962 

971 
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PAGE 85 LP.32 C=OSS REFERENCE 


PO 

00211 

304* 

310* 

651 

826 

648 

863 



PRINT 

00266 

34 1 

410* 

422* 

512 





PRNT 

P0417 

F4i 

845 

860 

870* 

676 

898 

899 


PRNTEF 

0045? 

87 1 

885 

891 

901* 





PRNTXT 

00450 

864 

896* 







PRNT 1 

00423 

674* 

896 







PRNT2 

00444 

867 

893* 







PTL 

00411 

503 

505 

507 

515 

856* 




RN 

00557 

33f> 

371 

386 

440 

*23 

944 

955 

973 



1041 * 








R 1 

000101 

1 4i * 

210 

326 

370 

385 

919 

926 

963 



07? 








R2 

00010? 

1 49* 

212 

372 

387 

*41 

924 

956 

974 

R3 

000103 

1 4 3 * 

443 

451 

467 





R4 

000104 

144* 

446 

458 

475 

529 




SEV 

00373 

34P 

390 

392 

403 

416 

434 

464 

825* 

SEVRN 

00475 

499 

628 

825 

931 

942* 

967 



SNA* 

000123 

1 46* 

266 







spi 

00260 

377 

391* 







START 

00000 

900 * 

1085 







TEMCPB 

00604 

880 

1074* 







TEMpj 

00563 

444 

466 

477 

482 

488 

535 

673 

690 



1047* 








TG 

00560 

?«7 

303 

310 

311 

* 1 0 

917 

1025 

1042* 



1 05* 








V A JX 

00034? 

159* 

447 

468 






MCA 

000034 

! 5a* 

875 







WF Ab 

00453 

07o 

869 

894 

908* 

913 

922 

933 


WFECPB 

0080? 

90« 

1071* 







WFTCPB 

00564 

997 

1049* 







wftgr 

00207 

949 

256 

297* 

319 

329 

640 



X AD J 

0055? 

927 

331 

945 

950 

1436* 




*12 

00001? 

138* 

452 

454 

486 

526 

676 

693 

701 

X J 3 

000013 

130* 

484 

487 






X17 

000017 

1 4»* 








.ENb 

705521 

1 6p* 

996 







.INH 

70532? 

167* 

996 
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CHAPTER 5 


CONSTRUCTION OF FRONT-END INTERRUPT DRIVER TASKS 


The Front-End Interrupt Driver Task has both computational and 
interrupt-processing capabilities. Unlike the Computational Task, the 
Front-End Task has an internal interrupt routine. The Front-End Task 
does not however, utilize the QUEUE I/O Directive to control this 
routine as do I/O Handler Tasks. 

The following pages present a sample Front-End Interrupt Driver Task 
named VPVEC, which is used for generating straight-line vectors on the 
VP storage scope. A full assembly listing is included on subsequent 
pages. VPVEC is a subroutine with four entry points for performing 
the following operations: 

. Connecting to and disconnecting from the interrupt line 
. Erasing the display 
. Plotting a straight-line vector 

The following description summarizes the flow of control through this 
subroutine. Line numbers in . the leftmost column below refer to 
decimal line numbers included at the left margin of the assembly 
listing. 

Line Number Label Description 

25-43 CINT Connect display interrupt routine, 

VPVEC, to interrupt line 14. Note that, 
if the Event Variable (EV) is negative, 
the connection could not be made and the 
subroutine will delay for ten clock 
ticks and then try again. If a 
successful connection is made, EV is 
cleared before returning to the caller. 

44-54 DINT Disconnect display interrupt routine, 

VPVEC, from interrupt line 14. The 
testing of the EV is not required here, 
so the address of EV in the CAL 
Parameter Block, line number 52, is 
zero. 

55-61 ERASE Erase the face of the storage scope. 

This operation (EST) generates an 
interrupt once the display has been 
erased and requires waiting until 
completion. This is done by issuing a 
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Line Number 


Label 


Description 


WAITFOR EV from routine WFINT (line 
180). The interrupt routine , VPVEC , 
clears the display flag when the erase 
operation has completed, sets the EV, 
and declares a Significant Event (API 
level 6). This results in a scan of the 
Active Task List and a return following 
the WAITFOR (contingent upon priority). 

62-178 VECTOR This is the straight-line vector plot 

routine which calculates the points 
required to generate the line, and 
displays them one point at a time. 
Following each point displayed, a 
WAITFOR is done to wait for the 
completion of the displayed point (lines 
149 and 176). 

179-186 WFINT Subroutine to issue a WAITFOR EV 

Directive until the point or erase 
operation has completed. It then clears 
the EV before returning. (If the EV 
were not cleared, the next WAITFOR EV 
issued would return immediately since 
the EV is set.) 

187-197 VPVEC Display interrupt service routine which 

sets the EV signifying the operation is 
complete and declares a Significant 
Event (API level 6). The display flag is 
cleared and control returned to the 
interrupted Task. 
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VP. a SRC 


1 

2 

4 

4 

5 

6 

7 

8 
9 

10 

11 

12 

14 

14 

1 * 

16 

17 

18 
IV 
20 
21 
22 
24 

24 

25 

26 

27 

28 

2 V 

30 

31 

32 
34 
34 
35) 

36 

37 

38 

3 V 

40 

41 

42 
44 

44 

45 

46 

47 
46 

49 

50 

51 

52 


/ EDIT #8 1/ OCT 71 H , KRE JC I 

/ 

/ ERASE 4 VECTOR -- FORTRAN CALLABLE SUBROUTINE TO ERASE 
/ SCOPE , OR TO CONSTRUCT A VECTOR FROM P1<IX1,IY1> TO P2 
/ 

/CALLING SEQUENCES! 

/ CALL CINT [CONNECT INTERRUPT] 

/ CALL U 1 NT [DISCONNECT INTERRUPT} 

/ CALL ERASE 

/ CALL VECTOR U XI , I Y1 , I *2 , \ Y2 ) 

/ 

/ 

700504 A LXB*700504 

700604 A LYB=700604 

700/24 A EST«700/24 

700521 A SODF» 700521 

700722 A CODE* 700722 

700564 A LXBD=700564 

700664 A LYBDs700664 

/ 

.GLOBL CINT, DINT, ERASE, VECTOR, , DA 

/ 

/ CINT -- CONNECT INTERRUPT LINE 
/ 


00000 

R 

000000 

A 

CINT 

0 


00001 

K 

000011 

R 

C I NT1 

cal 

IC 

00002 

R 

200236 

R 


LAC 

EV 

00004 

K 

140236 

R 


D*M 

EV 

00004 

K 

740100 

A 


SMA 


00005 

H 

620000 

R 


JMP* 

CINT 

00006 

R 

000015 

R 


cal 

MARK 

00007 

R 

000206 

R 


CAL 

WFCPB 

00010 

R 

600001 

R 


JMP 

CINT1 

00011 

R 

000011 

A 

f 

IC 

11 


00012 

R 

000236 

R 


EV 


00014 

H 

000014 

A 


14 


00014 

K 

000210 

R 


vpint 


00015 

H 

000013 

A 

/ 

MARK 

14 


00016 

H 

000246 

R 


IV 


00017 

R 

000010 

A 


10 


00020 

R 

000001 

A 


1' 



/ 

/ DINT -- DISCONNECT INTERRUPT LINE 
/ 

00021 R 000000,. A DINT 0 

00022 K 000024 R CAL ID 

00024 H 620021 R JMP * DINT 

/ 

00024 K 000012 A ID 12 

00025 R 000000 A 0 


54 00026 R 000014 A 14 
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54 

00027 

R 

000210 

R 


VP I NT 



55 





/ 




56 





/ ERASE 

-- ERASE STORAGE SCOPE 

57 





/ 




5b 

00030 

K 

000000 

A 

ERASE 

0 



59 

00031 

H 

700724 

A 


EST 



60 

00032 

R 

100202 

R 



WF JNT 


61 

00033 

H 

620030 

R 


JMP# 

erase 


62 





/ 




63 





/ VECTOR -- CONSTRUCT 

LINE 

64 





/ 




65 

00034 

R 

000000 

A 

VECTOR 

0 



66 

00035 

R 

120240 

E 


JMS* 

i DA 

/fetch argument addresses 

67 

00036 

H 

600043 

R 


JMP 

.*5 


6b 

00037 

R 

000000 

A 

XI 

0 



69 

00040 

K 

000000 

A 

Y1 

0 



70 

00041 

R 

000000 

A 

X2 

0 



71 

00042 

R 

000000 

A 

Y2 

0 



72 





/ 




73 

00043 

K 

220037 

R 


LAC# 

XI 

/DETERMINE DELTA-X 4 X.INCR POLA 

74 

00044 

R 

740031 

A 


TCA 



75 

00045 

K 

360041 

R 


TAD* 

X2 


76 

00046 

R 

722000 

A 


PAL 



77 

00047 

R 

741100 

A 


SPA 



7b 

00050 

R 

740031 

A 


TCA 



79 

00051 

R 

040222 

R 


UAC 

OELX 


80 

00052 

R 

730000 

A 


PLA 



81 

00053 

R 

751100 

A 


SPAICLA 



82 

00054 

R 

777776 

A 


LAW 

-2 


83 

00055 

R 

740030 

A 


I AC 



84 

00056 

R 

040224 

R 


UAC 

XINC 


85 





/ 




86 

00057 

R 

220040 

R 


LAC* 

Y1 

/DETERMINE DELTA-Y 4 Y» I NCR POLA 

87 

00060 

R 

740031 

A 


TCA 



88 

00061 

R 

360042 

R 


tad* 

Y2 


89 

00062 

R 

722000 

A 


pal 



90 

00063 

R 

74U00 

A 


SPA 



91 

00064 

R 

740031 

A 


TCA 



92 

00065 

R 

040223 

R 


UAC 

DELY 


93 

00066 

H 

730000 

A 


PLA 



94 

00067 

R 

751100 

A 


SPA ! CL A 



95 

00070 

R 

777776 

A 


LAW 

-2 


96 

00071 

R 

740030 

A 


I AC 



97 

00072 

R 

040225 

R 


UAC 

YINC 


9b 





/ 




99 

00073 

R 

200223 

R 


LAC 

DELY 

/IS DELTA. X GREATER THAN OR EQUAL 

100 

00074 

R 

740031 

A 


TCA 



101 

00075 

H 

340222 

R 


Tad 

DELX 


102 

00076 

R 

74U00 

A 


5P A 


/YES -- INITIALISE FOR HORIS LARGE 

103 

00077 

K 

600121 

R 


JMP 

V2 

/NO INITIALISE FOR VERT LARGE 

104 





/ 




105 

00100 

R 

200222 

R 


LAC 

OELX 

/nc=delx 

106 

00101 

H 

040232 

R 


UAC 

NC 
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107 

00102 

H 

200223 

R 


LAC 

DELY 

/nr*dely 

10b 

00103 

K 

040235 

R 


UAC 

NR 


109 

00104 

K 

220037 

R 


LAC* 

XI 

/LCC® X 

110 

0010b 

K 

040230 

R 


UAC 

ICC 

111 

00106 

H 

'220040 

R 


LAC* 

Y1 

/SCC«Y 

112 

00107 

K 

040226 

R 


UAC 

see 


113 

00110 

K 

200241 

R 


LAC 

< L X BD ) 

/LCM*lXB0 

114 

00111 

K 

040177 

R 


UAC 

LCM 


11& 

00112 

K 

200242 

R 


LAC 

(LYB) 

/SCM«lYB 

116 

00113 

K 

040173 

R 


UAC 

SCM 


117 

00114 

K 

200224 

R 


LAC 

XINC 

/LCI®XINC 

lib 

0011b 

H 

040231 

R 


UAC 

LC I 

119 

00116 

H 

200225 

R 


LAC 

YINC 

/SC I ® Y I NC 

120 

00117 

N 

040227 

R 


UAC 

SCI 


121 

00120 

R 

600141 

R 


JMP 

V3 


122 





/ 




123 

00121 

K 

200223 

R 

V2 

LAC 

DELY 

/NC«DELY 

124 

00122 

K 

040232 

R 


UAC 

NC 


125 

00123 

H 

200222 

R 


LAC 

DELX 

/NH®DELX 

126 

00124 

K 

040235 

R 


DAC 

NR 


127 

0012b 

H 

220040 

R 


LAC* 

Y1 

/LCC* Y 

12b 

00126 

K 

040230 

R 


UAC 

LCC 


129 

00127 

R 

220037 

R 


LAC* 

XI 

/SCC*X 

130 

00130 

R 

040226 

R 


UAC 

see 


131 

00131 

R 

200243 

R 


LAC 

<LYBD> 

/LCm«lYBO 

132 

00132 

R 

040177 

R 


UAC 

LCM 


133 

00133 

R 

200244 

R 


LAC 

(L^B) 

/SCM«LXB 

134 

00134 

R 

040173 

R 


UAC 

SCM 


135 

0013b 

H 

200225 

R 


LAC 

YJNC 

/LCI®YINC 

136 

00136 

R 

040231 

R 


UAC 

LCI 


137 

00137 

R 

200224 

R 


LAC 

XINC 

/SC I «X I NC 

13b 

00140 

R 

040227 

R 


DAC 

SCI 


139 





/ 




140 

00141 

R 

200232 

R 

V3 

LAC 

NC 

/NT«NC 

141 

00142 

H 

040233 

R 


UAC 

NT 


142 

00143 

R 

744020 

A 


KCR 


/NAaNC/2 

143 

00144 

R 

040234 

R 


UAC 

NA 


144 





/ 




14b 

0014b 

R 

220037 

R 


LAC* 

XI 

/PLOT INITIAL POINT 

146 

00146 

H 

700504 

A 


LXB 



147 

00147 

R 

220040 

R 


LAC* 

Y1 


14b 

00150 

R 

700664 

A 


LYBD 



149 

00151 

H 

100202 

R 


JMS 

wriNT 


150 





/ 




151 

001b2 

R 

200232 

R 

PL1 

LAC 

NC 

/NC*0 7 

152 

00153 

R 

741200 

A 


SNA 



153 

00154 

K 

620034 

R 


J MP* 

vector 

/YES =« EXIT 

154 

0015b 

R 

723777 

A 


AAC 

-1 

/NO •• NC«NC-1 

15b 

00156 

R 

040232 

R 


UAC 

NC 


156 





/ 




157 

00157 

R 

200234 

R 


LAC 

NA 

/na»na*nr 

15b 

00160 

R 

340235 

R 


TAD 

NR 


159 

00161 

H 

040234 

R 


UAC 

NA 
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160 

161 

00162 

R 

200233 

R 

/ 

LAC 

162 

00163 

R 

740031 

A 


TC A 

163 

00164 

H 

340234 

R 


TAQ 

164 

00165> 

R 

741100 

A 


SPA 

165 

00166 

R 

600174 

R 


UMP 

166 

00167 

R 

040234 

R 


DAC 

167 

00170 

H 

200226 

R 


LAC 

166 

00171 

H 

340227 

R 


TAD 

16 V 

00172 

R 

040226 

R 


DAC 

170 

00173 

H 

740040 

A 

SCM 

XX 

171 

172 

00174 

R 

200230 

R 

/ 

PL2 

LAC 

173 

0017* 

R 

340231 

R 


TAD 

174 

00176 

R 

040230 

R 


DAC 

175 

00177 

R 

740040 

A 

LCM 

XX 

176 

00200 

R 

100202 

R 


JM$ 

177 

176 

00201 

R 

600152 

R 

/ 

UMP 

179 

180 

00202 

R 

000000 

A 

/ 

WFINT 

0 

181 

00203 

R 

000206 

R 


CAL 

182 

00204 

R 

140236 

R 


D2M 

183 

00205 

R 

620202 

R 


UMP* 

184 

16* 

00206 

R 

000020 

A 

/ 

WFCPB 

20 

166 

00207 

R 

000236 

R 


EV 

187 

186 

00210 

R 

000000 

A 

/ 

VPINT 

0 

189 

00211 

R 

707762 

A 


DBA 

190 

00212 

R 

040237 

R 


UAC 

191 

00213 

R 

440236 

R 


JS2 

192 

00214 

R 

200248 

R 


LAC 

193 

0021* 

H 

705504 

A 


ISA 

194 

00216 

H 

700722 

A 


CODF 

19* 

00217 

R 

200237 

R 


LAC 

196 

00220 

R 

703344 

A 


OBR 

197 

00221 

K 

620210 

R 


UMP* 

198 

199 

00222 

R 

000000 

A 

/ 

OELX 

0 

200 

00223 

R 

000000 

A 

DELY 

0 

201 

00224 

R 

000000 

A 

XJNC 

0 

202 

0022* 

R 

000000 

A 

YJNC 

0 

203 

00226 

R 

000000 

A 

see 

0 

204 

00227 

R 

000000 

A 

SCI 

0 

205 

00230 

H 

000000 

A 

LCC 

0 

206 

00231 

K 

000000 

A 

LCI 

0 

207 

00232 

K 

000000 

A 

NC 

0 

206 

00233 

R 

000000 

A 

NT 

0 

209 

00234 

R 

000000 

A 

NA 

0 

210 

00235 

R 

000000 

A 

NR 

0 

211 

00236 

R 

000000 

A 

EV 

0 

212 

00237 

K 

000000 

A 

ACBUF 

0 


NT /NA>NT 

NA 

PL2 /NO -• DO LARGE COUNT MOVEMENT 

NA /YES — NApNA-NT & COMBINED MOVE 

see /small COUNT MOVEMENT 

SCI 

see 

/ ( LYB OR LXB) 

LCC /LARGE COUNT MOVEMENT 

LCI 

LCC 

/ ( LXBD OR LYSO > 

WF I NT 

PL1 /TO EXIT TEST 


WFCPB 

EV 

WPINT 


acbuf 

EV 

<401000) 


ACBUF 

VPINT 

/DELTA-X 

/delta-y 

/x increment <*i OR -n 
/y increment <*i OR -l) 
/SMALL count COORDINATE 
/small COUNT INCREMENT 
/LARGE COUNT COORDINATE 

/large count increment 
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vp,a src 


214 / 

21^ 000000 A | END 

00240 H 000240 E *E 

00241 H 700564 A *L 

00242 H 700604 A *L 
00244 K 700664 A *L 
00244 K 700504 A #L 
0024S) K 401000 A *t 

SJ^E'00246 NO ERROR LINES 
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VP,8 CROSS REFERENCE 


ACBUF 

00237 

190 

195 

CODF 

700722 

17* 

194 

C I NT 

00000 

*1 

25* 

C I Nil 

0000X 

26* 

33 

DELX 

00222 

79 

101 

CELT 

00223 

92 

99 

0 J NT 

00021 

21 

47# 

ERASE 

00030 

21 

58* 

EST 

700724 

15# 

59 

EV 

00236 

27 

28 

IC 

00011 

26 

35# 

ID 

00024 

48 

51* 

ICC 

00230 

110 

128 

UCI 

00231 

118 

136 

LCM 

00177 

114 

132 

LXB 

700504 

13* 

133 

LXBD 

700564 

18* 

113 

IYB 

700604 

14# 

115 

UYBD 

700664 

19# 

131 

mark 

00015 

31 

40# 

NA 

00234 

143 

157 

NC 

00232 

106 

124 

NR 

00235 

108 

126 

NT 

00233 

141 

161 

Pll 

00152 

151# 

178 

PL2 

00174 

165 

172* 

sec 

00226 

112 

130 

SCI 

00227 

120 

136 

SCM 

00173 

116 

134 

SDDF 

700521 

16* 


VECTOR 

00034 

21 

65* 

VRINT 

00210 

38 

54 

V2 

00121 

103 

123# 

V3 

00141 

121 

140* 

WFCPB 

00206 

32 

181 

WFINT 

00202 

60 

149 

X I NC 

00224 

84 

117 

XX 

00037 

68* 

73 

X2 

00041 

70* 

75 

Y l NC 

00225 

97 

119 

Y1 

00040 

6V* 

06 

Y2 

00042 

71* 

08 

.DA 

00240 

21 

66 


212 * 

30 


105 

107 

49 

61 

125 

123 

199# 

200* 


36 

41 

182 

186 191 

172 

173 
175* 
146 

174 

206* 

205# 


148 




159 

140 

158 

208# 

163 

151 

210* 

166 

155 

209* 

207# 

167 

168 
170* 

169 

204# 

203# 


153 

188* 

197 



185* 

176 

137 

109 

180* 

201* 

129 

183 

145 


135 

111 

202* 

127 

147 



211 * 
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CHAPTER 6 

USE AND ALLOCATION OF I/O BUFFERS 


This chapter presents a description of the allocation of I/O buffers 
within a Task's partition for use by I/O Handler Tasks. It also 
describes how Tasks such as the Assembler make use of available free 
core and how buffer preallocation is performed. 


6 . 1 I/O BUFFERS 

Some I/O Device Handlers or I/O Driver Tasks require intermediate 
buffering of data. For example, disk file Handlers read and write 
blocks of 256 words to and from the disk, but user Tasks typically 
read and write much smaller records. Thus records are packed and 
unpacked in intermediate I/O buffers rather than being transmitted 
directly to and from the disk. This has the effect of reducing the 
number of disk transfers. It is often necessary because some disks 
can only be addressed in complete blocks. 

It would be possible to provide I/O buffers internally within I/O 
Device Handlers, but this would limit I/O handling capabilities, and 
it is desirable to have an unlimited number of open files in the disk 
file Handler. Thus buffers must be provided externally, and are 
created, when needed, within the partition of the Task issuing the I/O 
call. 


6.2 PREALLOCATION OF I/O BUFFERS 

A partition is constructed in such a way that the Task resides in the 
bottom of the partition and I/O buffers are created at the top. A 
certain amount of free core (see Figure 6-1) usually separates the 
two. Tasks such as the Assembler are written to take advantage of any 
available free core (for building dynamic tables) , but a Task cannot 
have information on how much free core exists at the time it is 
loaded. 
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When a Task is made active , free core is determined by the size of the 
partition (P.SZ) minus the Task size (P.TS). The symbols in 
parentheses are the names of these parameters that appear in the 
Partition Block Description List (PBDL) node. Initially, the Task 
size is the amount of core occupied by both resident code and 
overlays. 

For a USER-mode Task, the size is always adjusted to a multiple of 
256, which is the unit of core allocation when memory protection and 
relocation are used. 

I/O buffers are created at the request of I/O Handlers, for example, 
when the Task issues a SEEK directive to open a file. Creation of I/O 
buffers necessarily diminishes the free core. The Assembler needs to 
use free core before it has opened all its files? it thus uses the 
mechanism described below to preallocate buffer space. 

The Assembler issues a P RE ALloc ate I/O directive to each LUN which it 
may eventually use. If a LUN is connected to an I/O Handler that uses 
external buffers, the Handler calls a reentrant routine in the 
Executive to perform the Task. Preallocation of a buffer simply means 
that space for a buffer is reserved but not created. Buffer space is 
reserved by decreasing a parameter called the Virtual Partition Size 
(P.VS) • Initially, the Virtual Partition Size is the same as the 
actual size of the partition (P.SZ) , but it is reduced every time a 
call is made to preallocate a buffer. 

The Virtual Partition Size establishes a ceiling on the Task size 
(which can be increased at run time). Free core is the difference 
between P.VS and P.TS. Since buffer preallocation is not a 
requirement of all Tasks, P.VS also is reduced when a buffer is 
created out of free core space. 

Buffer preallocation by the Assembler sets aside enough space in the 
top of its partition to satisfy the future requirements of the I/O 
Handlers which it may use. Once this is done, the Assembler issues a 
RAISE Bound Directive to the Executive. This causes the Task sizes to 
be increased to encompass free core (consistent, of course, with the 
requirement that USER-mode Task sizes be a multiple of 256 words). The 
address of the top of free core (the new highest Task address) is 
returned to the Assembler so that it can tell how much it has 
available. 


6.3 BUFFER ALLOCATION AND DEALLOCATION 

Buffer allocation and deallocation are performed by reentrant routines 
in the Executive. Within the PBDL (see Figure 6-1 below) is a buffer 
pointer (P.BP) which is the head of a chain of buffers within the 
partition. Initially, P.BP contains a zero to indicate that no 
buffers have yet been created. 

Buffers are created starting at the top of a partition and 
subsequently right below the lowest buffer in the chain. A buffer 
consists of two header words, followed by the actual buffer space 
usable by the I/O Handler. The first header word is a pointer to the 
next buffer in the chain (zero if there are no more), and bit 0 is an 
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availability indicator (of the current buffer, not the one pointed 
to) • Bit 0 contains zero if the buffer is not in use. 

When a buffer is deallocated, its "in use" bit is set to zero, but the 
buffer remains in the chain. In other words, "garbage collection" is 
not performed. If a buffer in the chain is free and is exactly the 
size required by the Handler, a new buffer is not created and the old 
buffer is reused. 

Buffer sizes may differ among the various Handlers, As a result, the 
Duffer-allocation routine uses the following rules: 

1. If a free buffer of exactly the correct size exists, this 
buffer is used, 

2. If an appropriate buffer is not found, but sufficient space 
exists to create the buffer, this is preferable to using a 
free buffer that is too large. 

3. If an appropriate buffer is not found and sufficient space 
does not exist to create one, an available buffer should be 
selected which is large enough and most closely matches the 
required size. 


6.4 REENTRANT EXECUTIVE SUBROUTINES 


The following three reentrant system subroutines have entry points 
fixed in the System COMmunication (SCOM) area of the Executive: 

PABF =350 /PREALLOCATE I/O BUFFER. 

ALBF = 353 /ALLOCATE I/O BUFFER. 

DABF =356 /DEALLOCATE I/O BUFFER. 

Calling Sequences: 


R2 — I/O request node address 
R4 — I/O buffer size 
JMS* (PABF) 

Return here on error 
Return here if successful 

R2 — I/O request node address 
R4 -- I/O buffer size 
JMS* (ALBF) 

Return here on error 
Return here if successful 
with the buffer address 
in the AC 


/Registers R4,R5,XR,and 
/AC are altered. 


/Registers Rl,R3,R4,R5, 
/R6 , X10 , Xll ,X12 , 

/XR, and AC are altered. 


R4 — I/O buffer address 

JMS* (DABF) /Registers R4,R5,XR, and 

Unconditional return /AC are altered. 

Note that the I/O buffer address in this case is two more than the 
address used internally within ALBF and DABF, since the caller need 
not know about the buffer header used for chaining and size. 
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